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The  host  simulator  program  is  used  to  simulate  requests 
generated  by  a  host  computer  and  to  verify  the  proper  operation 
of  the  controller.  The  functions  performed  by  the  host 
simulator  program  will  provide  the  capability  to: 

(1)  Build  and  display  relation  templates  used  to  construct 
requests. 

(2)  Build  a  series  of  request  files  composed  of  various  RRDS 
requests. 

(3)  Display  the  contents  of  a  specific  request  file. 

(4)  Allow  a  user  to  edit  a  request  file  to  add,  delete,  or 
modify  requests. 

(5)  Allow  selection  of  a  specific  request  file  for  processing 
by  the  controller  program. 

(6)  Pass  requests  to  the  controller  individually  from  a 
chosen  file  or  generated  interactively. 

(7)  Accept  coalesced  results  from  the  controller  and  log  them. 

1.3.  Thesis  Overview 

We  describe  the  implementation  of  the  host  simulator 
program  and  the  controller  program  in  the  remainder  of  this 
report.  Chapter  2  provides  the  reader  with  a  detailed 
description  of  the  implementation  of  the  host  simulator  program. 
Chapter  3  describes  the  implementation  of  the  RRDS  controller 
program.  Chapter  ^4  presents  conclusions  reached  during  this 
project  and  suggested  improvements  for  future  work. 
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The  appendices  provide  the  design  documents  and  source  code 
for  the  controller  and  host  simulator  programs.  The  BNP  syntax 
of  the  RRDS  data  manipulation  language,  as  proposed  in  the  RRDS 
design,  is  contained  in  Appendix  A.  Appendix  B  describes  the 
program  design  language  and  Jackson  Charts  used  in  designing  the 
two  programs.  The  Jackson  charts  and  program  design  description 
of  the  host  simulator  program  and  RRDS  controller  program  are 
presented  in  Appendices  C  and  D,  respectively. 

Appendix  E  contains  a  user's  manual  to  run  the  two 
programs.  The  specification  code  for  the  LEX  lexical  analyzer 
and  the  YACC  parser  is  given  in  Appendices  F  and  G, 
respectively.  Finally,  the  C  language  source  code  for  the  host 
simulator  program,  the  RRDS  controller  program,  and  the  common 
routines  is  provided  in  Appendices  H,  I,  and  J,  respectively. 
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1.  INTRODUCTION 


1.1.  Background 

'  j  Database  machines  and  parallel  database  systems  are 
becoming  a  viable  alternative  for  handling  transactions  on 
voluminous  databases  especially  with  the  declining  cost  of 
hardware.  Database  research  has  spawned  a  variety  of  parallel 
processing  architectures  to  improve  the  performance  of  database 
machines  ,  fSans87 J *  However,  many  of  these  architectures  are 
based  upon  unique  hardware  configurations  and  technologies 
including  processor-per-track,  processor- per- head,  and  off-the- 
disk  designs  k  [Hara83J.s  Alternative  backend  database  system 
designs  have  evolved  that  exploit  the  power  of  parallel 
processing  utilizing  conventional,  off-the-shelf  hardware.  The 
relational  replicated  database  system  (RRDS)  is  one  such  design. 

RRDS  is  a  backend  database  system  which  will  be  utilized 
for  processing  transactions  on  voluminous  databases,,  [Hans8<» a, 
Hans86b,  BansS&cJ-^  v  The  complete  performance  analysis  and  design 
of  RRDS  is  currently  being  carried  out  by  a  Ph.D.  student  at  the 
University  of  Central  Florida.  RRDS  supports  the  relational 
data  model  and  consists  of  multiple  processors  running 
replicated  copies  of  the  database  management  system  (DBMS) 
software  on  a  partitioned  database.  The  general  hardware 
organization^  as  ^h own  in  Figure  l,.is  composed  of  a  controller 
and  a  collection  of  replicated  computers  tUCs)  ,  which  can  be 
implemented  as  microcomputers  or  minicomputers.  \  . 
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Each  R C  maintains  a  copy  of  the  EBMS  software  along  with 
separate  portions  of  various  database  files  to  enable  parallel 
processing  of  requests.  The  controller  takes  requests  from  the 
host  computer,  parses  them,  and  forwards  the  valid  requests  to 
the  RCs  via  the  broadcast  bus.  Each  RC  reads  the  requests  from 
the  broadcast  bus  and  processes  them  on  its  portion  of  the 
database  file(s) .  The  results  are  forwarded  to  the  controller, 
which  coalesces  the  results  and  passes  them  to  the  host 
computer. 

RRDS  supports  the  complete  set  of  operations  in  relational 
algebra,  including  one-relation  operations  and  two-relation 
operations.  In  addition,  RRDS  provides  the  following  aggregate 
capabilities:  count,  sum,  max,  min,  and  average.  A  complete 
list  of  RRDS  operations  is  provided  in  Table  l.a  and  Table  l.b. 

1.2.  Project  Objectives 

The  objectives  of  this  project  are  to  design  and  implement 
the  controller  component  of  RRDS  and  a  host  simulator.  The 
controller  is  the  interface  between  the  host  computer  and  the 
RCs  of  RRDS.  The  functions  performed  by  the  controller  program 
will  provide  the  capability  to: 

(1)  Accept  requests  from  the  host  simulator  program. 

(2)  Perform  the  syntax  analysis  of  the  requests. 

(3)  Forward  correct  requests  to  a  file  (simulated  bus). 


(4)  Simulate  RC  output  by  generating  relation  fragments 
or  aggregate  values. 


(5)  Coalesce  the  relation  fragments  with  duplicate  records 
removed. 

(6)  Combine  aggregate  function  values  and  compute  the  final 
result. 

(7)  Forward  the  coalesced  relation  or  aggregate  value  to  the 
host  simulator. 
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One-Relation  Operations 

Two-Relation  Operations 

Delete 

Insert 

Proj ect 

Select 

Update 

Aggregates 

Difference 

Intersection 

Join 

Union 

Table  l.a:  The  RRDS  Operations 


1  Aggregate  Operations  I 

i  i 

i 

i 

Average 

1 

1 

i 

Count 

1 

i 

Max 

I 

j 

Min 

1 

i 

Sum 

1 

v  V 


I 


Table  l.b:  The  RRDS  Aggregate  Operations 


The  host  simulator  program  is  used  to  simulate  requests 
generated  by  a  host  computer  and  to  verify  the  proper  operation 
of  the  controller.  The  functions  performed  by  the  host 
simulator  program  will  provide  the  capability  to: 

(1)  Build  and  display  relation  templates  used  to  construct 
requests. 

(2)  Build  a  series  of  request  files  composed  of  various  RRDS 
requests. 

(3)  Display  the  contents  of  a  specific  request  file. 

(4)  Allow  a  user  to  edit  a  request  file  to  add,  delete,  or 
modify  requests. 

(5)  Allow  selection  of  a  specific  request  file  for  processing 
by  the  controller  program. 

(6)  Pass  requests  to  the  controller  individually  from  a 
chosen  file  or  generated  interactively. 

(7)  Accept  coalesced  results  from  the  controller  and  log  them 


1.3.  Thesis  Overview 


We  describe  the  implementation  of  the  host  simulator 
program  and  the  controller  program  in  the  remainder  of  this 
report.  Chapter  2  provides  the  reader  with  a  detailed 
description  of  vue  implementation  of  the  host  simulator  program. 
Chapter  3  describes  the  implementation  of  the  RRDS  controller 
program.  Chapter  4  presents  conclusions  reached  during  this 
project  and  suggested  improvements  for  future  work. 


The  appendices  provide  the  design  documents  and  source  code 
for  the  controller  and  host  simulator  programs.  The  BNF  syntax 
of  the  RRDS  data  manipulation  language,  as  proposed  in  the  RRDS 
design,  is  contained  in  Appendix  A.  Appendix  B  describes  the 
program  design  language  and  Jackson  Charts  used  in  designing  the 
two  programs.  The  Jackson  charts  and  program  design  description 
of  the  host  simulator  program  and  RRDS  controller  program  are 
presented  in  Appendices  C  and  D,  respectively. 

Appendix  E  contains  a  user's  manual  to  run  the  two 
programs.  The  specification  code  for  the  LEX  lexical  analyzer 
and  the  YACC  parser  is  given  in  Appendices  F  and  G, 
respectively.  Finally,  the  C  language  source  code  for  the  host 
simulator  program,  the  RRDS  controller  program,  and  the  common 
routines  is  provided  in  Appendices  H,  I,  and  J,  respectively. 


2.  IMPLEMENTATION  OF  THE  HOST  SIMULATOR 


The  host  simulator  program  was  implemented  on  a  VAX  11/780 
computer/  operating  under  the  4.3  Berkeley  version  of  UNIX.  The 
program  was  written  in  the  C  programming  language  [Kern78]  and 
uses  the  socket  facility  of  UNIX  [UNIX83]  to  implement  the 
functions  described  in  Chapter  1.  The  socket  facility  provides 
the  host  simulator  program  with  an  interprocess  communication 
channel.  The  channel  is  used  to  send  RRDS  requests  to  the 
controller  program  and  to  receive  request  results  from  the 
controller  program. 

The  program  is  menu  driven  and  prompts  the  user  for  all 
necessary  information.  There  are  currently  six  primary 
operations  that  the  user  can  perform  via  the  menu.  These 
operations  provide  the  capability  to: 

(1)  Create  a  relation  template. 

(2)  Display  existing  relation  templates. 

(3)  Create  a  file  of  RRDS  requests. 

(4)  Display  a  request  file. 

(5)  Edit  a  request  file. 

(6)  Run  requests  from  a  file  or  generated 
interactively  from  the  terminal. 

The  main  menu  of  the  host  simulator  program  is  shown  in  Figure 
2/  and  the  operations  provided  by  the  program  are  described  in 
the  following  sections. 
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*******  ****************************  *************** 


****** 
****** 
****** 
****** 
****** 
****** 
*  ***** 


******  ****** 

******  HELLO  user_name  ****** 

******  ****** 

******  WELCOME  TO  THE  ****** 

******  ****** 

******  H0ST  SIMULATOR  (LEVEL  1)  ****** 

******  ****** 

************************************************** 

Please  select  a  number  for  the  desired  operation. 

[1]  CREATE  a  relation  template. 

[2]  DISPLAY  relation  templates. 

[3]  CREATE  a  request  file. 

[4]  DISPLAY  a  request  file. 

[5]  EDIT  a  request  file. 

[6]  RUN  a  request  file. 

[0]  QUIT 


Figure  2:  The  Main  Menu  of  the  Host  Simulator  Program 
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2.1.  Creating  Relation  Templates 

Relation  templates  are  used  for  the  construction  of  RRDS 
requests.  The  templates  provide  relation  names,  attribute 
names,  and  attribute  types.  When  the  host  simulator  is 
initially  invoked,  any  relation  template  descriptions  stored  in 
the  "TEMPLATES"  file  are  read  into  the  "rel_templates"  buffer. 
The  capability  to  create  additional  templates  is  provided  when 
the  user  selects  the  first  option  from  the  menu,  as  shown  in 
Figure  2,  and  causes  the  template  construction  procedure, 
"create_template",  to  be  invoked. 

Initially,  the  template  construction  procedure  allows 
existing  relation  templates  to  be  displayed,  one  at  a  time, 
until  the  user  desires  to  stop  or  until  all  templates  have  been 
shown.  Then,  the  user  is  prompted  to  determine  if  a  new 
relation  template  should  be  created.  If  none  are  to  be  created, 
the  program  returns  to  the  main  menu  display.  Otherwise,  the 
user  is  prompted  for  a  relation  name.  The  user  is  then  prompted 
for  each  attribute  name  and  attribute  type  (character  or 
integer)  until  the  user  desires  to  stop  or  until  a  designated 
attribute  limit  is  reached.  The  new  relation  template  is  then 
stored  into  the  "rel_t era plates"  buffer.  The  buffer's  contents 
will  be  saved  into  the  "TEMPLATES"  file  when  the  host  simulator 
program  terminates,  via  the  "QUIT"  option  on  the  main  menu. 


2.2.  Displaying  Relation  Templates 


The  capability  to  display  existing  relation  templates  is 
provided  when  the  user  selects  the  second  option  from  the  main 
menu  and  causes  the  template  displaying  procedure, 
■show_templates",  to  be  invoked.  This  procedure  displays 
relation  templates,  one  at  a  time,  from  the  "r el_templates" 
buffer  until  the  user  desires  to  stop  or  until  all  templates 
have  been  shown.  Afterwards,  the  program  returns  to  the  main 
menu  display. 


2.3.  Creating  a  Request  File 


The  capability  to  create  a  file  of  RRDS  requests  is 
provided  when  the  user  selects  the  third  option  from  the  main 
menu  and  causes  the  driver  program,  "create_req_f  ile",  of  the 
request  generating  procedures  to  be  invoked.  The 
"create_req_f  ile"  procedure  first  prompts  the  user  for  the  name 

of  the  request  file  to  be  created.  The  user  is  then  given  the 

option  of  either  generating  a  set  of  RRDS  requests  himself  or 

having  the  system  generate  a  set  of  requests  automatically. 
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2.3.1.  Automatic  Request  Generation 

The  program  currently  generates  only  "INSERT"  requests 
automatically.  If  a  set  of  "INSERT"  requests  is  to  be  created, 
the  corresponding  request  generating  procedure,  "auto_insert", 
is  invoked.  The  user  is  prompted  for  a  relation  name  from  a 
list  of  relation  names.  This  list  is  derived  from  the  relation 
templates  stored  in  the  "rel_templat<»s"  buffer.  The  user  is 
then  prompted  for  the  number  of  "INSERT"  requests  to  be 
generated  automatically.  These  requests  will  be  built  from  a 
set  of  data  provided  by  the  user.  For  each  attribute  of  the 
selected  relation,  the  user  can  give  either  a  set  of  values  or  a 
range  of  values  (a  lower  bound  and  an  upper  bound) . 

After  the  user  has  provided  all  of  the  necessary  data 
values  for  each  attribute,  the  program  randomly  selects 
attribute  values  from  the  attribute  values  provided  and  creates 
the  "INSERT"  requests  according  to  the  RRDS  data  manipulation 
language  (DML) .  If  a  range  is  used  to  obtain  values  for  an 
integer  type  attribute,  a  random  value  within  the  range  will  be 
generated  for  this  attribute.  The  set  of  "INSERT"  requests  that 
are  generated  are  then  displayed  to  the  user  and  stored  into  the 
request  file.  The  procedure  then  returns  to  the  main  menu 
display. 
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2.3.2.  Manual  Request  Generation 


If  RRDS  requests  are  to  be  generated  by  the  user,  the 
request  generating  procedure,  "man_req_gen",  is  invoked.  This 
procedure  displays  a  menu  of  RRDS  request  types  that  can  be 
created  as  shown  in  Figure  3.  Each  request  type  has  its  own 
procedure  to  construct  the  request  according  to  the  RRDS  DML 
specifications.  Each  request  constructing  procedure  prompts  the 
user  for  all  necessary  information,  such  as  relation  names, 
attribute  values,  and  "WHERE"  clause  conjunctions.  The  type  of 
information  required  by  a  request  generating  procedure  depends 
on  the  type  of  RRDS  request  that  it  creates.  Each  request  is 

stored  into  a  request  array  as  it  is  constructed.  After  the 

request  has  been  created,  it  is  displayed  to  the  user.  Then, 
the  menu  of  RRDS  request  types  is  redisplayed  to  allow  more 

requests  to  be  created  and  included  in  the  request  file. 

The  above  request  generating  procedures  are  menu  driven, 
i.e.,  they  prompt  the  user  for  individual  values  needed  in  a 
request.  There  is  also  a  menu  option  that  allows  the  user  to 
enter  an  entire  request.  This  ad  hoc  option  invokes  the 
"man_adhoc"  procedure  and  allows  the  user,  for  example,  to  enter 
an  incorrect  request  in  order  to  test  the  parsing  capability  of 
the  controller  program. 

When  the  "QUIT"  option  is  selected  from  the  menu,  the 
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newly  created  requests  in  the  request  array  are  written  into 
the  request  file.  Then,  the  main  menu  is  redisplayed. 


Please  select  a  number  to  create  the  desired  request. 

[1]  AVERAGE  [5]  INSERT  [9]  MIN  [13]  UNION 

[2]  COUNT  [6]  INTSECT  [10]  PROJECT  [14]  UPDATE 

[3]  DELETE  [7]  JOIN  [11]  SELECT  [15]  ADHOC 

[4]  DIFP  [8]  MAX  [12]  SUM  [0]  QUIT 

-> 


Figure  3:  Menu  of  RRDS  Request  Types 


2.4.  Displaying  a  Request  Pile 


The  capability  to  display  the  contents  of  a  request  file  is 
provided  when  the  fourth  option  is  selected  from  the  main  menu. 
This  will  cause  the  file  displaying  procedure,  "shower eq_file", 
to  be  invoked.  The  user  is  first  prompted  for  the  name  of  an 
existing  request  file.  After  providing  the  proper  name,  the 
requests  in  the  file  are  stored  into  a  request  array.  Then,  the 
"display_req"  procedure  is  invoked.  The  "display_req"  procedure 
allows  a  user  to  view  a  specific  request  or  all  of  the  requests 
in  the  request  array.  The  procedure  pauses  after  every  fifth 
request  when  all  the  requests  are  to  be  viewed  (this  will  avoid 
screen  scrolling  before  the  user  had  a  chance  to  read  the 
requests)  .  Requests  can  be  displayed  until  the  user  decides  to 
stop. 


2-5.  Editing  a  Request  File 


The  capability  to  edit  an  existing  request  file  is  provided 
when  the  fifth  option  is  selected  from  the  main  menu,  causing 
the  editing  procedure  ( "edit_req_f ile")  to  be  invoked.  This 
procedure  prompts  the  user  for  the  name  of  an  existing  request 
file  and  then  reads  the  requests  into  a  request  array.  Then,  a 
menu  of  editing  options  is  displayed  to  the  user.  Requests  can 
be  added,  deleted,  displayed,  or  modified  in  a  request  file. 
However,  all  changes  are  first  made  in  the  request  array.  This 
will  reduce  the  disk  I/O  and  it  will  also  provide  the  user  the 
option  of  saving  or  not  saving  the  changes  into  the  request  file 
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before  leaving  the  editor  program.  The  editing  options  are 
described  in  the  following  sections. 

2.5.1.  Adding  a  Request 


When  the  option  to  add  a  new  request  is  selected  from  the 
editing  menu,  the  request  inserting  procedure,  "adcLreq",  is 
invoked.  First,  a  menu  of  request  types  that  can  be  created  for 
addition  to  the  request  file  is  displayed,  similar  to  the  one 
shown  in  Figure  3.  After  selecting  the  request  type,  the  user 
is  prompted  for  the  position  to  add  the  request.  After  the 
position  is  chosen  within  the  valid  range,  the  request  array  is 
adjusted  so  that  the  request  can  be  added  at  the  desired 
location  without  overwriting  an  existing  request.  The 
appropriate  procedure,  depending  on  the  request  type  that  was 
chosen,  is  then  invoked  to  generate  the  request  interactively. 
The  newly  created  request  is  stored  in  the  request  array  and 
displayed  to  the  user.  Then,  the  editing  menu  is  redisplayed  to 
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2.5.2.  Deleting  a  Request 


When  the  option  to  delete  a  request  is  chosen  from  the 
editing  menu,  the  request  deleting  procedure,  "delete_req ",  is 
invoked.  Hie  user  is  then  prompted  for  the  position  of  the 
request,  in  the  request  array,  to  be  deleted.  The  request 
selected  for  deletion  is  displayed  to  the  user  to  determine  if 
it  really  is  the  request  that  should  be  deleted.  If  the  user 
confirms  that  it  should  be  deleted,  the  request  array  is 
adjusted  so  that  all  requests  after  the  selected  request  are 
moved  into  the  position  of  the  preceding  request.  This  causes 
the  selected  request  to  be  overwritten  in  the  request  array. 
After  the  request  is  overwritten,  the  editing  menu  is 
redisplayed  to  the  user. 


2.5.3.  Displaying  a  Request 


When  the  option  to  display  a  request  is  chosen  from  the 
editing  menu,  the  request  displaying  procedure,  "display_req", 
is  invoked.  This  procedure  has  been  described  in  Section  2.4 
and  will  not  be  repeated  here.  Requests  can  be  displayed  until 
the  user  decides  to  stop.  Afterwards,  the  editing  menu  is 
redisplayed  to  the  user. 
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2.5.4.  Modifying  A  Request 


When  the  option  to  modify  a  request  is  chosen  from  the 
editing  menu,  the  request  modifying  procedure,  "modify_req",  is 
invoked.  This  procedure  prompts  the  user  for  the  position  of 
the  request  in  the  request  array  that  should  be  changed.  The 
selected  request  is  displayed  to  the  user  to  determine  if  it  is 
the  correct  request  to  be  modified.  If  the  user  confirms  that 
it  is  the  correct  request,  the  user  is  then  prompted  for  the 
string  that  is  to  be  changed.  Then,  the  user  is  prompted  for  the 
replacement  string.  If  the  string  to  be  changed  exists  in  the 
request,  it  is  replaced  with  the  replacement  string.  However, 
if  the  replacement  string  is  longer  or  shorter  than  the  original 
string,  the  request  is  adjusted,  accordingly,  so  that  neither 
data  will  be  overwritten  nor  extraneous  data  will  remain  in  the 
request.  The  modified  request  is  then  displayed  to  the  user 
followed  by  a  redisplay  of  the  editing  menu. 


2.5.5.  Terminating  the  Editor 


When  the  option  to  terminate  the  editing  program  is  chosen 
from  the  editing  menu,  the  editing  loop  is  exited.  Then,  the 
user  is  prompted  to  determine  if  all  the  changes  in  the  request 
array  should  be  saved.  If  the  user  desires  to  save  the  changes, 
all  requests  in  the  request  array  are  written  into  the  request 
file  from  which  they  were  read.  Then,  the  editing  program, 
"edit_req_f ile",  terminates  and  the  program  returns  to  the  main 
menu  display. 


jTjjr 

Ww 


Eg®1 

m 

gal 

n 

Wl 

i 


jrmZY 


2.6.  Running  Requests  and  Obtaining  Results 

The  capability  to  send  requests  to  the  controller  program 

for  processing  is  provided  when  the  sixth  option  is  selected 

from  the  main  menu.  This  will  cause  the  request  handling 

procedure,  "rui\_req__f ile",  to  be  invoked.  If  a  socket  channel 
has  not  been  established  with  the  controller  program,  an 

interprocess  channel  is  first  created  using  the  socket  facility 
commands.  (If  the  controller  program  is  not  running,  it  must  be 
invoked  before  the  host  program  proceeds.  The  controller 
program,  as  described  in  Chapter  3,  will  establish  a  channel 
connection  with  the  host  so  that  requests  can  be  received  from 
the  host  program.) 

After  a  socket  channel  has  been  established  and  both 
programs  are  attached  to  it,  the  "rurv_req_f  ile"  procedure  will 
prompt  the  user  for  the  name  of  a  request  file  containing 

requests  to  be  processed.  After  providing  the  name  of  an 
existing  request  file,  requests  are  read  from  the  file  and 
stored  into  a  request  array  to  minimize  disk  I/O.  Then,  the  user 
is  prompted  to  determine  if  the  request  processing  results 
should  be  logged  in  a  file,  displayed  at  the  terminal,  or  both. 

If  necessary,  the  user  is  prompted  for  the  name  of  the  output 

file  to  log  the  results.  Then  the  user  is  prompted  to  determine 
if  all  of  the  requests  or  selected  requests  should  be  sent  to 
the  controller  program  for  processing.  Depending  on  the  user's 
response,  either  the  procedure  to  process  all  requests, 

"run^all",  or  the  procedure  to  process  selected  requests. 


"ruo_selected",  will  be  invoked.  These  procedures  are  described 
in  the  following  sections. 

2.6.1.  Running  All  Requests  in  a  File 

When  the  procedure  to  process  all  requests,  "ruruall",  is 
invoked,  each  request  in  the  request  array  is  passed  to  the 
controller  program,  one  request  at  a  time,  on  the  interprocess 
channel  using  the  "send"  command  of  the  socket  facility.  Then, 
the  program  awaits  the  request  results  from  the  controller 
program  using  the  socket  channel  receiving  command  ("recv") . 

When  a  result  arrives  from  the  controller  program,  the 
result  is  stored  into  a  reply  buffer.  Then,  depending  on  the 
users's  output  direction,  the  request  and  its  result  will  be 
logged  in  a  file,  displayed  at  the  terminal,  or  both.  However, 
if  the  result  contains  a  continuation  symbol,  the  procedura 
enters  a  loop  to  await  further  data  from  the  controller  program. 
Within  this  loop,  data  is  sent  to  the  proper  output  location (s) 
after  it  has  been  received  on  the  interprocess  channel  via  the 
"recv"  command  of  the  socket  facility.  The  loop  is  terminated 
when  a  termination  symbol  is  received  from  the  controller 
program,  which  indicates  the  end  of  data  transmission  from  the 
controller  program.  The  "run_all"  procedure  then  transmits  the 
next  request  in  the  request  array  to  the  controller  program 
using  the  "send"  command  of  the  socket  facility. 
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2.6.2.  Running  Selected  Requests 

When  the  pcoceduce  to  process  selected  requests/ 
"run_selected",  is  invoked,  the  user  is  able  to  run  requests 
from  the  file  and  new  requests  generated  interactively  at  the 
terminal. 

2. 6. 2.1.  Running  Selected  Requests  in  a  File 

If  the  user  wishes  to  run  a  request  from  the  file,  he  is 
prompted  for  the  position  of  the  request  in  the  request  array. 
The  selected  request  is  shown  to  the  user  to  determine  if  it  is 
the  correct  request  to  be  sent  to  the  controller  program.  If 
the  user  agrees,  the  selected  request  is  transmitted  to  the 
controller  program  via  the  "send"  command  of  the  socket 
facility.  Then,  the  "run_selected"  procedure  awaits  the  request 
result  from  the  controller  program  via  the  "recv"  command  of  the 
socket  facility. 

The  handling  of  the  request  result,  when  it  arrives  from 
the  controller  program,  has  been  described  in  section  2.6.1  and 
will  not  be  repeated  here. 

2. 6. 2. 2.  Running  Selected  Requests  Generated  from  a  Terminal 

The  "run_selected"  procedure  also  allows  a  user  to 
interactively  generate  a  request  at  the  terminal  and  transmit  it 
to  the  controller  program  for  processing.  If  a  user  wants  to 
interactively  generate  a  request  at  the  terminal  instead  of 
selecting  a  request  from  the  file,  a  menu  of  request  types  that 


21 


can  be  created  is  displayed  to  the  user  as  shown  in  Figure  3. 
When  a  request  type  is  selected  from  the  menu,  the  appropriate 
procedure  is  invoked  to  generate  the  request  interactively.  The 
newly  created  request  is  stored  into  a  terminal  request  buffer. 
The  request  in  the  terminal  request  buffer  is  then  transmitted 
to  the  controller  program  via  the  "send"  command  of  the  socket 
facility.  The  "run_selected"  procedure  then  awaits  the  request 
result  from  the  controller  program  via  the  "recv"  command  of  the 
socket  facility. 

After  receiving  the  result  from  the  controller  program,  the 
"run_selected*  procedure  prompts  the  user  for  another  request. 
As  described  before,  the  request  can  be  from  the  file  or 
generated  from  the  terminal. 


2.7.  Program  Termination 


When  the  "QUIT"  option  is  selected  from  the  main  menu  of 
the  host  program,  termination  of  the  host  simulator  program  and 
the  RRDS  controller  program  will  result.  First,  the  host 
program  determines  if  an  interprocess  channel  was  established 
with  the  controller  program.  If  a  socket  channel  did  exist,  a 
termination  symbol  is  sent  to  the  controller  program.  As 
described  in  Chapter  3^  when  the  controller  program  receives  the 
termination  symbol  from  the  host  program,  it  will  exit  the 
request  processing  loop,  close  the  "BROADCAST"  file,  and  it  will 
terminate.  Then,  the  host  program  removes  the  socket  channel. 
Afterwards,  the  relation  templates  in  the  "r el_tem plates"  buffer 
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3.  I MIL  EMENTAT ION  OF  THE  RRDS  CONTROLLER 

The  RRDS  controllec  program  was  implemented  on  the  VAX 
11/780  computer,  operating  under  the  Berkeley  4.3  version  of 
UNIX,  and  was  written  in  the  C  programming  language  [Kern78] . 
The  program  implements  the  controller's  functions  as  described 
in  Chapter  1.  System  tools,  such  as  YACC  [John79] ,  LEX 
[Lesk79] ,  and  the  socket  facility  [UNIX83],  were  also  utilized 
to  construct  the  controller  program.  The  socket  facility  was 
used  for  interprocess  communication  with  the  host  simulator 
program.  Whereas,  LEX  and  YACC  were  used  to  develop  the  parser 
for  the  RRDS  data  manipulation  language  (DML) .  The  controller 
program  receives  requests  from  the  host,  parses  them,  passes  the 
valid  requests  to  simulated  RCs,  receives  results  from  simulated 
RCs,  coalesces  the  results,  and  forwards  results  to  the  host. 
These  operations  are  described  in  the  following  sections. 

3.1.  Receiving  a  Request  from  the  Host 

An  interprocess  communication  channel  is  established  when 
the  host  simulator  program  initially  sends  a  request  to  the 
controller  for  processing.  When  the  controller  is  initially 
invoked,  it  establishes  a  connection  to  the  socket  channel  and 
waits  for  the  first  request  to  be  received  via  the  communication 
socket.  When  a  request  is  received,  it  is  stored  into  a  buffer. 
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3.2.  Parsing  the  Request 


Upon  receiving  a  request,  the  LEX  input  pointer,  "yyin",  is 
set  to  the  first  character  position  of  the  request  buffer.  The 
request  is  then  parsed  by  invoking  the  YACC  generated  parser 
"yyparseO".  "yyparse",  in  turn,  invokes  the  LEX  lexical 
analyzer,  "yylexO",  to  obtain  tokens  from  the  request.  These 
tokens  are  matched  by  "yyparseO"  according  to  the  RRDS  data 
manipulation  language  (DML)  .  If  a  request's  syntax  is  valid, 
■yyparseO"  returns  a  value  of  "0",  otherwise  it  returns  a  value 
of  ■!". 


3 .3 w  Rejecting  Incorrect  Requests 


If  the  request  is  invalid  because  of  a  syntax  error,  the 
error  handling  procedure  of  the  controller  program,  "bad_req", 
is  invoked.  This  procedure  writes  an  "INVALID  REQUEST"  message 
into  the  "reply"  buffer  that  will  be  transmitted  to  the  host. 


3.4.  Forwarding  Correct  Requests  to  the  RCs 


When  a  request  is  valid,  it  is  written  to  the  "BROADCAST" 
file.  The  "BROADCAST"  file  is  used  to  simulate  broadcasting  the 
request  to  the  RCs  since  the  RCs  and  DBMS  software  are  not  yet 
implemented. 
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3.5.  Simulating  RC  Result  Data  and  Coalescing  It 


In  order  to  implement  and  test  the  controller's  coalescing 
capabilities/  result  data  files  were  created  to  simulate  the 
output  data  that  could  be  generated  by  operational  RCs.  A 
procedure,  "get_results",  was  written  that  analyzes  the  request 
type  and  obtains  result  data  from  the  RC  data  files  based  on  the 
request  type.  For  requests  such  as  "INSERT"  and  "DELETE",  a 
simple  request  completion  message  is  stored  into  the  "reply" 
buffer,  which  will  be  forwarded  to  the  host.  For  aggregate 
requests,  such  as  "MAX"  and  "SUM",  the  first  data  item  is  read 
from  each  result  data  file  and  coalesced  by  the  corresponding 
procedure,  such  as  "co_MAX"  and  "co_SUM".  After  deriving  the 
proper  aggregate  value,  it  is  written  into  the  "reply"  buffer. 


For  requests  that  return  relation  fragments,  such  as 
"SELECT"  and  "PROJECT",  the  "co_RECORDS"  procedure  is  invoked. 
This  will  cause  a  random  amount  of  records  to  be  read  from  each 
result  data  file  and  stored  into  an  array.  Then,  the  arjray  is 
coalesced  to  remove  duplicate  records,  which  simulates  duplicate 
relation  fragments.  Upon  completion,  a  continuation  symbol  is 
written  into  the  "reply"  buffer.  This  will  notify  the  host  that 
more  data  follows  this  message  when  the  results  are  sent  to  it. 
The  records  in  the  coalesced  array  will  then  be  forwarded  to  the 
host. 
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3.6.  Forwarding  Request  Results  to  the  Host 


The  controller  forwards  request  results  to  the  host  by 
invoking  the  "send_results"  procedure.  This  procedure  uses  the 
"send"  command  of  the  socket  facility  to  transmit  data,  on  the 
interprocess  channel ,  to  the  host.  Initially,  the 

"sencLresults"  procedure  transmits  the  contents  of  the  "reply" 
buffer,  which  was  appropriately  set  in  either  the  valid  request 
procedure  ("get_results")  or  the  invalid  request  procedure 
("bacLreq").  However,  if  the  reply  buffer  contains  the 
continuation  symbol,  the  "send_resul ts"  procedure  will  also 
transmit  the  coalesced  relation  fragments,  one  record  at  a  time, 
to  the  host.  After  sending  the  last  record,  a  termination 
symbol  is  sent  to  the  host  to  signal  the  end  of  data 
transmission. 


After  sending  the  results,  the  controller  waits  for  the 
next  request  via  the  "recv"  command  of  the  socket  facility. 


3.7:.  Program  Termination 


When  the  controller  program  receives  the  termination  symbol 
as  a  request,  the  controller  program  will  exit  its  processing 
loop,  close  the  "BROADCAST"  file,  and  then  terminate. 
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4.  SUMMARY  AND  CONCLUSIONS 


In  this  paper ,  we  have  presented  the  design  and 
implementation  of'  two  software  systems  for  handling  RRDS 
requests.  A  host  simulator  system  was  constructed  to  generate 
RRDS  requests  similar  to  those  that  could  be  produced  by  an 
operational  host  computer  using  RRDS.  The  host  simulator  is 
menu  driven  and  enables  a  user  to  easily  generate,  edit,  and 
forward  RRDS  requests  to  the  RRDS  controller,  which  was  also 
developed. 

The  RRDS  controller  system  accepts  RRDS  requests  from  the 
host  simulator  via  a  duplex  socket  channel  established  for 
interprocess  communication.  The  requests  are  then  parsed, 
according  to  the  RRDS  data  manipulation  language,  by  the  parser 
developed  using  the  "LEX"  and  "YACC"  facilities  of  UNIX.  Valid 
requests  are  then  sent  to  the  "BROADCAST"  file,  to  simulate 
transmitting  a  request  to  the  RCs,  since  the  broadcast  bus, 
replicated  computers  (RCs),  and  EBMS  software  have  not  been 
implemented.  Because  the  RCs  are  not  running,  result  data  files 
are  used  to  simulate  and  generate  RC  result  data. 

Result  data  is  generated,  based  on  the  request  type,  to 
produce  either  a  reply,  relation  fragments,  or  aggregate  values. 
The  results  from  RCs  are  used  to  verify  the  coalescing  operation 
of  the  controller  program.  Relation  fragments  are  coalesced  to 
remove  duplicates  and  aggregate  values  are  combined  to  produce 
the  final'  aggregate  value.  The  results  for  valid  requests  are 


sent  to  the  host  program  via  the  socket  channel.  For  invalid 
requests/  an  error  message  is  sent  to  the  host. 

As  operational  components,  such  as  the  RCs  and  host 
computer,  are  developed  and  linked  to  the  RRDS  controller,  the 
bus  simulation  interfaces,  between  the  controller  and  the  host 
or  between  the  controller  and  RCs,  can  be  replaced  in  the 
controller  program.  The  "send"  and  "recv"  interfaces  of  the 
socket  channel,  used  between  the  host  simulator  and  controller 
programs,  can  be  replaced  by  corresponding  bus  I/O  interfaces. 
Also,  the  file  write  commands  to  the  "BROADCAST"  file  and  the 
file  read  commands  from  the  result  data  files  can  be  replaced  by 
corresponding  bus  I/O  interfaces  between  the  RCs  and  RRDS 
controller  program. 
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APPENDIX  A 


RRDS  DML  SPECIFICATION 


In  this  appendix  the  formal  BNF  syntax  for  the  RRDS  data 
manipulation  language  (DML)  is  presented  (square  brackets  [  ] 
indicate  optional  constructs) . 


<Que ry> 


<Agg-Query> 


<Select-Query>  :  :  = 


<Pr  oj  ect-Que  ry  >  : :  = 


<Select-Query>  I  <Proj ect-Query>  I 
<Insert-Query>  I  <Delete-Query>  I 
<Update-Query>  I  <Join-Query>  I 
<0 ni on-Que ry >  I  <Diff-Query>  I 
<Intsect-Query>  I  <Agg-Query> 

<Count-Agg>  I  <Sum-Agg>  I  <Min-Agg>  I 
<Max~Agg>  I  <Ave-Agg> 

SELECT  [ALL]  FROM  <Target-Relation> 

[WHERE 

(<Specif ier>)  ] 

PROJECT  (<Attr-List>)  FROM  <Target-Rel ation> 
[WHERE 

(<Specif ier>)  ] 


<Insert-Query>  : :=  INSERT  (<Record>)  INTO  <Target-Relation> 


<Delete-Query>  : 


<Update-Query> 


<Uni on-Que ry> 
<Dif  f -Query  > 


DELETE  [ALL]  FROM  <Target-Rel ation> 
[WHERE 

( <Specif ier>) ] 

UPDATE  (<Modif ier>)  IN  <Target-Relation> 
[WHERE 

(<Specif ier>) ] 


t*  <Target-Relation>  UNION  <Target-Relation> 
i=  <Target-Relation>  DIFF  <Target-Relation> 


<Intsect-Query>  :  :  =  <Target-Relation>  INTSECT  <Target-Relation> 


$ 

Sii 
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<Join-Query  > 


<Target-Relation>  JOIN  <Target-Relation> 


<Count-Agg> 


<Sum-Agg> 


<Min-Agg> 

<Max-Agg> 


<Ave-Agg> 


:=  COUNT  FROM  <Target-Relation> 

[WHERE  (<Specif ier>) ] 

:=  SUM  (<Attribute>)  FROM  <Target-Relation> 
[WHERE  (<Specif ier>) ] 

:=  MIN  (<Attribute>)  FROM  <Target-Relation> 
[WHERE  (<Specif ier>) ] 

:=  MAX  (<Attribute>)  FROM  <Target-Relation> 
[WHERE  (<Specif ier>) ] 

:=  AVERAGE  (<Attr ibute>)  FROM  <Target-Relation> 
[WHERE  (<Specifier>) ] 


<Target-Relation>  : :=  <String> 


<Record> 


<Record-Segment> 


<Record-Segment>  : :=  <Attr-Value-Pair>  I 

<At tr-Val ue-Pai r> , <Recor  d- Segment  > 

<Attr-Value-Pair>  : :*  <Attribute>  <Assign-Op>  <Value> 


<Attr-List> 

<Attribute> 

<Specif ier> 

<Conjunction> 

<Pred-List> 

<Pr edicate> 

<Modifier> 


*  <Attribute>  I  <Attribute>,<Attr-List> 

*  <String> 

*  <Conjunction>  I  <Conjunction>  OR  <Specifier> 

*  (<Pr ed-List>) 

=  <Predicate>  I  <Predicate>  AND  <Pred-List> 

*  <Attribute>  <Rel*-Op>  <Value> 

*  <Assign-Statement-List> 


<Assign-Statement-List> 

=  <Assign-Statement>  I 

<Assign-Stateraent> , <Assign-Statement-List> 

<Assign-Statement>  : :*  <Attribute>  <Assign-Op>  <Ar ithm-Expression> 

<Arithm~Expression>  : <Term>  l 

<Ar ithm-Expression>  <Add-Op>  <Term> 


<Term> 


<Factor  > 


<Value> 


<String> 


;=  <Factor>  I  <Term>  <Mul-Op>  <Factor> 

:=  <Attribute>  I  <Value>  I  (<Ar ithm- Expression^ 
:=  <String>  I  <Number> 

:=  <Uc-Le tter>  I  <Uc-Letter>  <Alph-Num> 


<Alph-Num> 


<Number> 

<Real> 

<Integer> 

<Letter> 

<Uc-Letter> 

<Lc-Letter> 

<Digit> 

<Add-Op> 

<Mul-Op> 

<Rel-Op> 

<Assign-Op> 


<Letter>  I  <Digit>  j 

<Letter>  <Alph-Num>  I  <Digit>  <AIph-Num> 

<Integer>  I  <Real>  I 

<Add-Op>  <Integer>  I  <Add-Op>  <Real> 

<Integer> . <Integer> 

<Digit>  I  <Digit>  <integer> 

<Dc-Letter>  I  <Lc-Letter> 

A  I  B  I  C  I  . .  .  !  Z 

a  I  b  1  c  I  . . .  I  z 

0  I  1  I  2  |  ...  i  9 

+  I  - 

*  I  / 
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APPENDIX  B 


PROGRAM  DESIGN  LANGUAGE  SPECIFICATION 

AND 

JACKS  CM  CHART  DESIGN  SPECIFICATION 


In  this  appendix,  the  design  tools  used  for  the  RRDS  design 
documents  are  presented.  Section  1  describes  the  program  design 
language.  Section  2  describes  Jackson  Chart  constructs  and 
usage. 

B.l.  Program  Design  Language  Specification 

The  program  design  language  provides  constructs  such  as 
conditional  statements,  repetitive  statements,  and  subroutines. 
These  constructs  are  described  in  the  following  sections. 

B.1.1.  Comments 

A  design  document  can  include  comments  by  enclosing  each 
comment  within  the  delimiters  "/*"  and 
Example:  /*  This  is  a  comment  */ 

B.l. 2.  Assignment  Statement 

An  assignment  statement  is  used  to  assign  a  value  to  a 
variable,  where  the  variable  on  the  left  side  of  the  "="  symbol 
is  assigned  the  value  of  the  expression  on  the  right  side  of  the 
symbol.  An  expression  can  be  an  arithmetic  clause  or  a 


descriptive  clause.  Each  assignment  statement  is  terminated 
with  a  semicolon. 

Format:  variable  =  expression; 

Examples:  count  =  number  of  predicates  in  specifier; 
count  =  count  +  1; 


B.1.3w  Conditional  Statements 


A  conditional  statement  provides  a  way  to  control  the 
operational  flow  of  a  program  based  on  the  result  of  a 
condition.  The  design  language  provides  a  simple  "if"  statement, 
a  compound  "if-then-else"  statement,  and  a  "case"  statement  as 
conditional  constructs.  Each  construct  contains  a  conditional 
expression  that  is  used  to  determine  if  the  operations  described 
within  the  construct  should  be  performed.  However,  the  case 
construct  uses  the  value  of  a  conditional  expression  to 
determine  the  set  of  operations  to  perform.  The  format  and 
examples  for  each  of  these  conditional  constructs  are  shown 


below. 


Format:  if  expression  then 


statement 


end  if 


Exampl e : 


if  the  request  is  valid  then 
send  the  request  to  the  RCs 
end  if 


k 
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Format:  if  expression  then 
statements 
else 

statement2i 
end  if 

Example: 

if  #of_pred  >  MAK.PRED  then 
print  an  error  message 
else 

find  record  addresses  for  each  predicate 
end  if 

Format:  case  expression 
valuel : 

statements 
val ue2 : 

statement2 
value3 : 

stateraent3 

•  •  • 

otherwise : 
statementn 

end  case 


■tly,tl‘ 


Example:  case  request  type 


INSERT: 


call  insert_processing() ; 


RETRIEVE: 


call  retrieve_processing( ) ; 
otherwise : 

print  an  error  message 


end  case 


B.1.4.  Repetitive  Statements 


These  type  of  statements  provide  a  way  to  repeat  a  set  of 
operations.  The  number  of  iterations  is  specified  in  the 
expression  clause  of  the  construct.  The  language  provides  a 
"for"  statement  and  a  "while"  statement.  The  format  and 
examples  for  these  constructs  are  shown  below. 

Format:  for  expression 
statement 
end  for 

Examples:  for  each  element  a  in  s 
total  =  total  +  a; 
end  for 


for  k  =  10  to  50  by  5 
print  k 
end  for 

Format:  while  expression 


statement 


end  while 


Examples:  while  there  are  more  requests 

process  the  request 
end  while 
while  a  >  d 

a  =  a  -  b; 
end  while 

B.1.5.  Input/Output  Statements 

The  language  provides  statements  to  read  and  write  data 
from  a  file  or  a  terminal,  based  on  a  "f_"  or  "t_"  prefix.  Each 
statement  contains  an  expression  clause  to  describe  the  data 
being  read/written.  The  format  and  examples  for  these  I/O 
statements  are  shown  belcw. 

Format:  f_read  expression 
f_write  expression 
t_read  expression 
t_write  expression 

Exampl  es : 

f_read  requests  in  the  request  file  into  the  request  array 
f_write  requests  in  the  request  array  into  the  request  file 
t_read  user  selection 

t_write  requests  in  the  request  array  10  at  a  time 
B.1.6.  Subroutines 


The  language  provides  a  way  to  describe  procedures  and 
functions  used  by  a  program.  Procedures  are  described  using  the 
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"proc*  construct.  Whereas,  functions  are  described  with  the 
■func"  construct.  A  "proc"  construct  is  invoked  with  a  "call" 
statement  and  a  "func"  construct  is  implicitly  invoked  when  it 
is  used  in  an  expression.  The  format  of  these  constructs,  the 
invoking  statements,  and  examples  are  shown  below. 

Format: 

proc  pname  (input:  variables,  input/output:  variables 

output:  variables); 

statement 
end  proc  pname; 

Exampl  e : 

proc  sort  (input:  n,  input/output:  tbl,  output:  nothing); 

/*  This  procedure  sorts  the  table  "tbl"  */ 

/*  using  Quick  Sort  */ 

end  proc  sort; 

Format  to  invoke  a  "proc"  construct: 

call  pname (variables) ; 

Example:  call  sort  (count,  a) ; 

Format  to  return  from  the  middle  of  a  "proc"  construct: 

return; 

Format : 

func  fname  (input:  variables)  returns  (type); 
statement 
return(value) ; 
end  func  fname; 


r 

to 


Example: 

func  factor  (input:  n)  returns  (integer); 

/*  This  function  returns  the  factorial  of  n  */ 
end  func  factor; 

Format  to  invoke  a  function: 

variable  *  fname( variables) ; 

Example:  f  =  factor  (6); 

B.2.  Jackson  Chart  Specification 

Jackson  Charts  [Jack75]  are  used  to  model  the  structure  of 
a  program.  Using  Jackson  Charts,  a  program  is  subdivided  into  a 
hierarchical  structure  that  can  consist  of  both  elementary  and 
composite  logic  components.  The  elementary  component  is  related 
to  a  single  operation  and  is  not  further  subdivided.  Whereas, 
a  composite  logic  component  binds  various  lower  level 
components,  such  as  elementary  and  logic  components. 

Components  are  represented  as  labeled  blocks  and  are  placed 
in  operational  order  from  left  to  right.  Component  blocks  also 
contain  symbols  to  describe  their  execution  within  the  program. 
These  symbols  denote  the  sequence,  selection,  and  iteration 
constructs  used  in  a  Jackson  Chart.  These  three  constructs  are 
described  in  the  following  sections. 

B.2.1.  The  Sequence  Construct 

The  absence  of  a  symbol,  for  a  set  of  component  blocks  at 
the  same  level,  indicates  that  the  blocks  will  be  executed  in 
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sequence  from  left  to  eight.  An  example  of  a  sequence  construct 
is  shown  in  Figure  4. a.  In  this  example,  block  "A”  consists  of 
block  *B",  followed  by  block  "C",  followed  by  block  "D". 

B.2.2.  The  Selection  Construct 

A  "o"  symbol-,  in  the  upper  right  corner  of  a  set  of 
component  blocks  at  the  same  level,  indicates  that  only  one  of 
these  blocks  will  be  executed.  An  example  of  a  selection 
construct  is  shown  in  Figure  4-b.  In  the  example,  block  "A" 
consists  of  either  block  "B",  block  "C",  or  block  "D". 

B.2.3i  The  Iteration  Construct 

A  symbol  in  the  upper  right  corner  of  a  component  block 
indicates  that  the  block  can  be  executed  zero  or  more  times.  An 
example  of  an  iteration  construct  is  shown  in  Figure  4.c.  In 
this  example,  block  "A"  consists  of  block  "B"  zero  or  more 
times  in  succession. 

B.3.  A  Sample  Program 

An  example  of  a  program  structure,  represented  in  Jackson 
Chart,  is  shown  in  Figure  5.  The  corresponding  program  design, 
written  in  the  design  language,  is  shown  in  Figure  6. 


Figure  5:  Sample  Program  Defined  Using  fl  Jackson  Chart 


proc  request_processing() ; 

f_read  the  data  base  requests  from  request  file  into  an  array 
while  there  are  more  requests  in  the  array 
t_write  the  next  request  in  the  array 
valid  *  value  from  request  parser; 
if  valid  *  TRUE  then 

call  process_valid_request  ()  ? 
else 

call  process_invalid_request() ; 
end  if 

t_write  the  request  results 
end  while 

end  proc  request_processing; 

Figure  6:  Sample  Program  Defined  in  the  Design  Language 
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JACKSON  CHARTS  AND  PROGRAM  DESIGN  LANGUAGE 


FOR  THE  HOST  SIMULATOR  PROGRAM 
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y* ******************** ************ ************************************* y 


/*  V 

/*  This  host  simulator  program  was  developed  and  written  by  */ 

/*  Leonard  A.  Lyon  during  the  Spring  1987  Semester.  This  host  */ 

/*  simulator  program  is  designed  for  use  with  the  RRDS  Controller.  V 

/*  This  program  is  menu  driven  and  allows  users  to  interactively  */ 

/*  create,  edit,  and  run  RRDS  requests.  */ 

/*  */ 

y* ************ ******* ****************************** ******************** y 
/*  GLOBAL  VARIABLES  V 

y*  *y 

/*  CONTINUE  indicates  more  data  follows  V 

/*  TERMINATE  indicates  end  of  data  transmission  */ 

/*  output  directed  output  (screen,  f  ile,both,  S/f/b)  */ 

/*  recv_request  Controller's  current  request  buffer  */ 

/*  req_cnt  number  of  requests  read  from  file  */ 

/*  reply  Controller's  reply  to  a  request  */ 

/*  tmpl_cnt  number  of  templates  read  from  file  */ 

/*  recu buffer  [MA3(_RBQ]  array  of  requests  */ 

/*  *y 

/*  Structure  variables  for  relation  templates  */ 

/*  *y 

/*  1  attribute  */ 

/*  2  at_name  */ 

/*  2  at_type  */ 

/*  *y 

/*  1  relation  */ 

/*  2  rel__name  */ 

/*  2  rel_nof_attrs  */ 

/*  2  attribute  [MAX_ATTRS]  */ 

/*  *y 

/*  1  rel_templates  */ 

/*  2  relation  (MAJL.RELS]  */ 


£ 


proc  main(); 

/*  BEGIN  HOST  SIMULATOR  */ 


/*  Initialize  the  string  constants  */ 


BLANK 

BOR 

CONTINUE 

EOR 

TERMINATE 
REL [0] .OP 
REL  [1]  .OP 
REL [2] .OP 
REL [3] .OP 
REL  [4]  .OP 
REL [5] .OP 


"["? 

"1"; 
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/*  Retrieve  relation  templates  from  TEMPLATES  file  */ 

f_read  relation  templates  from  TEMPLATES  file 

into  rel_templates  buffer 
while  the  user  wants  to  perform  more  operations 
t_write  menu  of  host  operations 
t_read  desired  operation  to  be  performed 
case  the  desired  operation 
CREATE  A  TEMPLATE: 

call  create_template() ; 

DISPLAY  TEMPLATES: 

call  show_templates() ; 

CREATE  REQUEST  FILE: 

call  create_req_f  ile() ; 

DISPLAY  REQUEST  FILE: 

call  show^req_f  ile()  ; 

EDIT  REQUEST  FILE: 

call  edit_req_f  ile()  ; 

RUN  REQUEST  FILE: 

call  run_req_f  ile()  ; 

QUIT: 

/*  exit  the  loop  */ 

OTHERWISE: 

t_write  error  message 

end  case 
end  while 

/*  Save  relation  template  descriptions  */ 

if  relation  templates  exist  then 

f_write  relation  templates  from  rel_templates  buffer 

into  TEMPLATES 

end  if 

end  proc  main; 

/***********************************************★******************/ 
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proc  create_template( ) ; 

/*  This  procedure  displays  existing  relation  templates  and  allows  */ 

/*  the  user  to  create  new.  relation  templates.  */ 

/*  GLOBAL:  tmpl_cnt#  rel_templates U  */ 

/*  First  display  existing  relation  templates  */ 

t_write  templates  one  at  a  time 

/*  Create  the  name  of  the  new.  relation  template  */ 

t_write  Create  another  relation  template  ? 
t_read  user  response 

while  the  user  wants  to  create  more  templates  and  tmpl_cnt  <  MAX_RELS 
t_write  Enter  name  of  relation  template 
t_read  template  name  into  rel_templates  buffer 

/*  Create  the  attribute  names  for  the  new  relation  template  */ 

while  the  user  wants  to  add  more  attributes  and  <  MAX_ATTRS 
t_write  Enter  name  of  attribute 
t_read  attribute  name  into  rel_templates  buffer 
t_write  Enter  attribute  type  (C/I) 
t_read  attribute  type  into  rel_templates  buffer 
end  while 

t_write  Create  another  relation  template  ? 
t_read  user  response 
end  while 

end  proc  create_template; 


/**************************************■****************************/ 


proc  create_req_f  ile() ; 

/*  This  procedure  allows  the  user  to  store  rrds  requests  that  are  */ 

/*  created  either  manually  or  automatically  by  the  system.  V 

/*  GLOBAL:  req_cnt,  req_buffer[]  */ 

t_write  Enter  the  name  of  the  request  file  to  be  created 
t_read  file  name 

t_write  Enter  'a'  or  'm'  for  automatic  or  manual  request  generation 
t_read  user  response 

if  response  =  a  then 
call  auto_req_gen() ; 
else  if  response  =  m  then 
call  man_req_gen() ; 
end  if 

/*  Save  all  created  requests  */ 

f_write  requests  into  request  file  from  request  array 
end  proc  create_req_f ile; 

**************************************************** *************  ^ 
proc  auto_req_gen()  ; 

/*  This  procedure  generates  a  set  of  RRDS  requests  automatically.  */ 

/*  (Only  INSERT  requests  are  currently  generated  automatically.)  */ 

while  the  user  wants  to  create  more  requests 
t_write  request  menu  ( INSERT,  QUIT) 
t_read  user  choice 
case  user  choice 
INSERT: 

call  auto_insert() ; 

QUIT: 

/*  exit  the  loop  */ 

OTHERWISE: 

t_write  error  message 

end  case 
end  while 

end  proc  auto_req_gen; 

/♦♦♦♦♦♦♦A**************************************************************/ 
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proc  auto_insert() ; 

/*  This  procedure  creates  a  set  of  rrds  INSERT  requests  automatically  */ 
/*  GLOBAL:  tmpl_cnt,  rel_templates[] ,  req_cnt,  req_buffer[]  V 

t_write  Generate  INSERT  requests  from  which  relation  ? 
rel_index  =  get_rel<) ; 

/*  Determine  how.  many  requests  to  create  within  limits  */ 

t_write  How  many  requests  do  you  want  to  create  ?  (  <=  limit) 
t_read  number  into  req_bound 

/*  Determine  total  values  the  user  will  provide  per  attribute  */ 

for  each  attribute  of  the  relation  template 

t_write  How  many  data  values  do  you  want  to  provide  ? 
if  attribute  type  =  integer  then 

t_write  Enter  0. for  range  OR  number  <  limit 
end  if 

t_read  number  into  input_bound  array 
end  for 

/*  Get  data  for  the  attributes  used  in  the  request  */ 

for  each  attribute  in  the  relation  template 

if  input_bound  for  this  attribute  1=  0  then 

t__write  Enter  data  at  each  prompt  to  create  records 
t_write  NOTE: 

Character  data  must  start  with  an  upper  case  letter 
for  index  =  1  to  input  bound  for  this  attribute 
t_write  attribute  name 
t_write  attribute  type 
t_read  attribute  data 
end  for 
end  if 

if  attribute  type  =  integer  and  input_bound  =  0  then 
t_write  Enter  a  numeric  lower  bound 
t_read  number  into  lower  bound  array 
t_write  Enter  a  numeric  upper  bound 
t_read  number  into  upper  bound  array 
end  if 
end  for 
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/*  Now  create  the  insert  requests  from  the  data  provided  */ 


gen_index  =  0; 

while  gen_index  <  req_bound  and  req_cnt  <  request  limit 
/*  Include  INSERT  clause  in  the  request  */ 

/*  Select  a  random  attribute  value  */ 

/*  Include  attribute  value  pairs  in  the  request  */ 

/*  Include  the  INTO  clause  in  the  request  */ 

/*  Include  the  relation  name  in  the  request  */ 
gen_index  *  geruindex  +  1; 
end  while 

end  proc  auto_insert; 

/******************************************************************* / 
proc  man_req_gen() ; 

/*  This  procedure  provides  a  menu  of  RRDS  request  types  that  can  be*/ 
/*  created  by  the  user.  The  appropriate  request  generator  program  */ 
/*  is  executed  based  on  user  input.  */ 

/*  GLOBAL:  req_cnt,  req_buffer[]  */ 

while  the  user  wants  to  generate  more  requests 

and  is  below  the  limit 
t_write  a  menu  of  RRDS  request  types 
t_read  selected  request  type  from  menu 
case  request  type 
AVERAGE: 

call  man_average (req_buf fer [req_cnt] .request) ; 
req_cnt  =  req_.cn  t  +  1; 

COUNT: 

call  man_count (req_ buffer [req_cnt] .request) ; 
req_cnt  *  req_cnt  +  1; 

DELETE: 

call  man_delete ( req_buf f er [req_cnt]  .request); 
req_cnt  =  req_.cn  t  +  1; 

DIPP: 

call  man_dif f ( req_buf fer [req_cnt] .request) ; 
req_cnt  =  req_cnt  +  1; 

INSERT: 

call  man_insert(req_buf fer [req_cnt] .request) ; 
req_cnt  =  req_cnt  +  1; 

INTSECT: 

call  man_intsect (req_buf fer [req_cnt] .request) ? 
req_cnt  =  req_cnt  +  1; 

JOIN: 

call  man_join(req_buf fer [req_cnt] .request) ; 
req_cnt  =  req_cnt  +  1; 


TOM 
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max: 

call  man_max(req_buf fer [req_cnt] .request) ; 
r eq_cnt  =  req_cnt  +  1; 

MIN: 

call  man_min(req_buf fer [req_cnt] .request) ; 
req_cnt  =  req_cnt  +  1; 

PROJ ECT : 

call  marx_proj ect (req_buf fer [req_cnt]  .request); 
req_cnt  =  req_cnt  +1; 

SELECT: 

call  man_select (req_buf fer [req_cnt] .request) ; 
req_cnt  =  req_cnt  +  1; 

SOM: 

call  man_sum( req_buf f er [req_cnt] .request) ; 
req_cnt  =  req_cnt  +  1; 

UNION: 

Cvll  man_union(req_buf fer [req_cnt] .request); 
req_cnt  =  req_.cn  t  +  1; 

UPDATE: 

call  man_update(req_buf fer [req_cnt] .request) ; 
req_cnt  =  req_cnt  +  1; 

ADHOC: 

call  man_adhoc(req_buf f er [req_cnt] .request) ; 
req_cnt  *  req_cnt  +  1; 

QUIT: 

/*  exit  the  loop  */ 

OTHERWISE: 

t_write  error  message 

end  case 

t_write  the  newly  created  request 
end  while 

end  proc  raan_req_gen; 

/A******************************************************************, 
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proc  man_adhoc  ( output :  request); 

/*  This  procedure  allows  a  user  to  enter  any  type  of  request  with  */ 
/*  delimiters  This  routine  is  useful  for  creating  erroneous  rrds  */ 

/*  requests  to  verify  the  syntax  analysis  capabilities  of  the  RRDS  */ 
/*  Controller.  */ 

t_write  Enter  request  within  delimiters 
t__read  request 
end  proc  man_adhoc; 

/*******************************************************************/ 
proc  man_  aver  age  (output :  request) 

/*  This  procedure  creates  a  rrds  AVERAGE  request  with  user  input  */ 
/*  GLOBAL :  tmpl_cnt,  rel_templates  */ 

/*  Get  relation  name  for  the  request  */ 

t_write  Generate  AVERAGE  request  from  which  relation  ? 
rel_index  =  get_rel(); 

/*  Get  the  attribute  used  in  the  request  */ 

t_write  Generate  AVERAGE  request  for  which  attribute  ? 
t_write  list  of  integer  type  attribute  names 
from  the  relation  template 
t_read  the  attribute  name 

/*  Get  the  WHERE  clause  if  necessary  */ 

call  get_where_clause (rel_index,  where); 

/*  Now  create  the  AVERAGE  request  from  the  data  provided  */ 


/*  Include  the  AVERAGE  clause  */ 
/*  Include  the  selected  attribute  in  the  request  */ 
/*  Include  the  FROM  clause  in  the  request  */ 
/*  Include  the  relation  name  in  the  request  */ 
/*  Include  any  WHERE  clause  in  the  request  */ 


end  proc  man_average; 

dr*************************************************************/ 
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proc  man_max (output:  request); 

/*  This  procedure  creates  a  rrds  MAX  request  with  user  input  */ 
/*  GLOBAL:  tmpl_.cn  t,  rel_ templates,  */ 

/*  Get  relation  name  for  the  request  */ 

t_write  Generate  MAX  request  from  which  relation  ? 
rel_index  =  get_rel(); 

/*  Get  the  attribute  used  in  the  request  */ 

t_write  Generate  MAX  request  for  which  attribute  ? 
t_write  list  of  attribute  names  from  the  relation  template 
t_read  the  attribute  name 

/*  Get  the  WHERE  clause  if  necessary  */ 

call  get_where_clause(rel_index,  where); 

/*  Now  create  the  MAX  request  from  the  data  provided  */ 

/*  Include  the  MAX  clause  */ 

/*  Include  the  selected  attribute  in  the  request  */ 

/*  Include  the  FROM  clause  in  the  request  */ 

/*  Include  the  relation  name  in  the  request  */ 

/*  Include  any  WHERE  clause  in  the  request  */ 

end  proc  man_max; 

^*********4****************************************************/ 


fi 


proc  man_min ( output :  request); 

/*  This  procedure  creates  a  rrds  MIN  request  witn  user  input  */ 
/*  GLOBAL:  tmpl_cnt,  rel_templates,  */ 


/*  Get  relation  name  for  the  request  */ 


t_write  Generate  MIN  request  from  which  relation  ? 
rel_index  *  get_rel(); 


/*  Get  the  attribute  used  in  the  request  */ 


t_write  Generate  MIN  request  for  which  attribute  ? 
t_write  list  of  attribute  names  from  the  relation  template 
t_read  the  attribute  name 


/*  Get  the  WHERE  clause  if  necessary  */ 
call  get_where_clause(rel_index,  where); 

/*  Now  create  the  MIN  request  from  the  data  provided  */ 


/*  Include  the  MIN  clause  in  the  request  */ 
/*  Include  the  selected  attribute  in  the  request  */ 
/*  Include  the  FROM  clause  in  the  request  */ 
/*  Include  the  relation  name  in  the  request  */ 
/*  Include  any  WHERE  clause  in  the  request  */ 


end  proc  man_jnin; 

/************************************************************** / 


pcoc  m an_s urn ( output :  request) 

/*  This  procedure  creates  a  rrds  SUM  request  with  user  input  */ 

/*  GLOBAL:  tmpl_cnt,  rel_tem plates,  */ 

/*  Get  relation  name  for  the  request  */ 

t_write  Generate  SUM  request  from  which  relation  ? 
rel_index  =  get_rel(); 

/*  Get  the  attribute  used  in  the  request  */ 

t_write  Generate  SUM  request  for  which  attribute  ? 
t_write  list  of  integer  type  attribute  names 
from  the  relation  template 
t_read  attribute  name 

/*  Get  the  WHERE  clause  if  necessary  */ 

call  get_where_ clause (rel_index,  where); 

/*  Now  create  the  SUM  request  from  the  data  provided  */ 

/*  Include  the  SUM  clause  in  the  request  */ 

/*  Include  the  selected  attribute  in  the  request  */ 

/*  Include  the  FROM  clause  in  the  request  */ 

/*  Include  the  relation  name  in  the  request  */ 

/*  Include  any  WHERE  clause  in  the  request  */ 

end  proc  man_sum; 

/****************************»***********************************/ 
proc  man_  count  (output :  request); 

/*  This  procedure  creates  a  rrds  COUNT  request  with  user  input  */ 
/*  GLOBAL:  tmpl_cnt,  rel_templates  */ 

/*  Get  relation  name  for  the  request  */ 

t_write  Generate  COUNT  request  from  which  relation  ? 
rel_index  *  get_rel(); 

/*  Get  the  WHERE  clause  if  necessary  */ 
call  get_where_ clause (rel_index,  where); 

/*  Now  create  the  COUNT  request  from  the  data  provided  */ 

/*  Include  the  COUNT  clause  in  the  request  */ 

/*  Include  the  FROM  clause  in  the  request  */ 

/*  Include  the  relation  name  in  the  request  */ 

/*  Include  any  WHERE  clause  in  the  request  */ 
end  proc  man_count; 

y1* ★**************************x************************************* 


proc  man_del ete( output :  request); 

/*  This  procedure  creates  a  rrds  DELETE  request  with  user  input  */ 
/*  GLOBAL :  tmpl_cnt,  rel_templates  */ 

/*  Get  relation  name  for  the  request  */ 

t_write  Generate  DELETE  request  from  which  relation  ? 
reli_index  =  get_rel(); 

t_write  the  two  types  of  DELETE  requests  that  can  be  created 
t_read  type  of  DELETE  request 

if  type  =  1  then 

/*  Include  DELETE  ALL  FROM  clause  in  the  request  */ 

/*  Include  the  relation  name  in  the  request  */ 

else  if  type  =  2  then 

/*  Get  the  WHERE  clause  if  necessary  */ 
call  get_where_clause (rel_index,  where); 

/*  Include  DELETE  FROM  clause  in  the  request  */ 

/*  Include  the  relation  name  */ 

/*  Include  the  WHERE  clause  in  the  request  */ 
end  if 

end  proc  man_delete; 

***************************************************************  **/ 
proc  man_select (output :  request); 

/*  This  procedure  creates  a  rrds  SELECT  request  with  user  input  */ 
/*  GLOBAL:  tmpl_cnt,  r el_templates  */ 

/*  Get  relation  name  for  the  request  */ 

t_write  Generate  SELECT  request  from  which  relation  ? 
rel_index  =  get_rel(); 

t_write  the  two  types  of  SELECT  requests  that  can  be  created 
t_read  the  type  of  SELECT  request 

if  type  =  1  then 

/*  Include  the  SELECT  ALL  FROM  clause  in  the  request  */ 

/*  Include  the  relation  name  in  the  request  */ 

else  if  type  =  2  then 

/*  Get  the  WHERE  clause  if  necessary  */ 
call  get_where_clause ( rel_ir.dexf  where); 

/*  Include  the  SELECT  FROM  clause  in  the  request  */ 

/*  Include  the  relation  name  in  the  request  */ 

/*  Include  any  WHERE  clause  in  the  request  */ 

end  if 

end  proc  raan_select; 

/***************************************************************/ 
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proc  man_j oin (output :  request); 

/*  This  procedure  creates  a  rrds  JOIN  request  wii-h  user  input  */ 
/*  GLOBAL:  tmpl_cnt,  rel_templates  */ 

/*  Get  the  first  relation  name  for  the  request  */ 

t_write  Generate  JOIN  request  from  which  relation  ? 
rell^.index  =  get_rel(); 

/*  Get  the  second  relation  name  for  the  request  */ 

t_write  Generate  JOIN  request  for  which  other  relation  ? 
rel2_index  *  get_rel(); 

/*  Now  create  the  JOIN  request  from  the  data  provided  */ 

/*  Include  the  first  relation  name  in  the  request  */ 

/*  Include  the  JOIN  clause  in  the  request  */ 

/*  Include  the  second  relation  name  in  the  request  */ 

end  proc  man_join; 

y*  ***************************************************************/ 
proc  man_union (output  5  request); 

/*  This  procedure  creates  a  rrds  UNION  request  with  user  input  */ 
/*  GLOBAL:  tmpl_cnt,  rel_templates  */ 

/*  Get  the  first  relation  name  for  the  request  */ 

t_wrice  Generate  UNION  request  from  which  relation  ? 
rell^index  =  get_rel(); 

/*  Get  the  second  relation  name  for  the  request  */ 

t_write  Generate  UNION  request  for  which  other  relation  ? 
rel2_index  =  get_rel(); 

/*  Now  create  the  UNION  request  from  the  data  provided  */ 

/*  Include  the  first  relation  name  in  the  request  */ 

/*  Include  the  UNION  clause  in  the  request  */ 

/*  Include  the  second  relation  name  in  the  request  */ 

end  proc  man_union; 
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proc  man_ insert (output:  request); 

/*  This  procedure  creates  a  rrds  INSERT  request  with  user  input  */ 

/*  GLOBAL :  tmpl_cnt,  rel_tem plates  */ 

/*  Get  relation  name  for  the  request  */ 

t_write  Generate  INSERT  request  from  which  relation  ? 
rel^index  =  get_rel(); 

/*  Get  data  for  the  attributes  used  in  the  request  */ 
t_write  Enter  data  for  each  attribute. 

t_write  NOTE:  Character  data  must  start  with  an  upper  case  letter 
for  each  attribute  in  the  relation 
t_write  the  attribute  name 
t_write  the  attribute  type 
t_read  the  attribute  value  into  an  array 
end  for 

/*  Now  create  the  INSERT  request  from  the  data  provided  */ 

/*  Include  the  INSERT  clause  in  the  request  */ 

/*  Include  attribute  value  pairs  in  the  request  */ 

/*  Include  the  INTO  clause  in  the  request  */ 

/*  Include  the  relation  name  in  the  request  */ 

end  proc  man_insert; 

**************************** r***  *********  ************************* y 


proc  man_project (output:  request); 

/*  This  procedure  creates  a  rrds  PROJECT  request  with  user  input  */ 
/*  GLOBAL:  tmpl_cnt,  rel_templates  */ 

/*  Get  relation  name  for  the  request  */ 

t_write  Generate  PROJECT  request  from  which  relation  ? 
rel_index  =  get_rel(); 

/*  Get  the  attributes  used  in  the  request  */ 

t_write  Generate  PROJECT  request  for  which  attributes  ? 
for  each  attribute  in  the  relation 
t_write  the  attribute  name 
t_write  a  prompt  for  attribute  inclusion 
t__read  response  into  an  array: 
end  for 

/*  Get  the  WHERE  clause  if  necessary  */ 
call  get_where__clause  (rel_index,  where); 

/*  Now  create  the  PROJECT  request  from  the  data  provided  */ 

/*  Include  the  PROJECT  clause  in  the  request  */ 

/*  Include  any  selected  attributes  in  the  request  */ 

/*  Include  the  FROM  clause  in  the  request  */ 

/*  Include  the  relation  name  in  the  request  */ 

/*  Include  any  WHERE  clause  in  the  request  */ 

end  proc  man_project; 

Z******************************************************************/ 
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proc  man_update (output :  request); 

/*  This  procedure  creates  an  rrds  UPDATE  request  with  user  input  */ 

/*  GLOBAL :  tmpl_cnt,  rel_templates  */ 

/*  Get  relation  name  for  the  request  */ 

t_write  Generate  UPDATE  request  from  which  relation  ? 
rel_index  *  get_rel(); 

/*  Get  data  for  the  attributes  used  in  the  request  */ 

t_write  Enter  new. data  for  each  attribute  or 
hit  'return'  for  no  change. 

t_write  NOTE:  Character  data  must  start  with  an  upper  case  letter. 

for  each  attribute  in  the  relation 
t_write  the  attribute  name 
t_write  the  attribute  type 
t_read  the  attribute  value  into  an  array 
end  for 

/*  Get  the  WHERE  clause  if  applicable  */ 
call  get_where_clause (rel_index,  where); 

/*  Now  create  the  UPDATE  request  from  the  data  provided  */ 


/*  Include  the  UPDATE  clause  in  the  request  */ 
/*  Include  attribute  value  pairs  in  the  request  */ 
/*  Include  the  IN  clause  */ 
/*  Include  the  relation  name  in  the  request  */ 
/*  Include  any  WHERE  clause  in  the  request  */ 


end  proc  man_update; 

/******* *****************************************************  **********  ^ 


proc  edit_req_f  ile() ; 

/*  This  procedure  allows  a  user  to  edit  a  specific  rrds  request  file 
/*  A  menu  of  editing  options  is  displayed  and  executed. 

/*  GLOBAL:  req_cnt,  req_buffer[] 

t_write  Enter  the  name  of  a  request  file  to  be  edited 
t_read  the  name  of  the  request  file 
f_read  requests  from  the  file  into  the  request  array 
while  the  user  wants  to  edit  the  request  file 
t_write  menu  of  editing  operations 
t_read  operation  selected  from  menu 
case  editing  operation 
DISPLAY  REQUESTS: 

cal 1  di spl ay_r  eq ( ) ; 

DELETE  A  REQUEST: 

call  delete_req( )  ; 

ADD  A  REQUEST: 

call  add_req(}; 

MODIFY  A  REQUEST: 

call  modify_req( ) ; 

QUIT: 

/*  exit  the  loop  */ 

OTHERWISE: 

t_write  an  error  message 

end  case 
end  while 

t_write  SAVE  all  changes  ? 
t_read  user  response 

if  response  *  yes  then 

f_write  requests  from  request  array  into  request  file 
end  if 

end  proc  edit_req_f ile; 

/'***■*************************************************************/ 


pr oc  di spl ay_r  eq ( ) ; 

/*  This  procedure  allows  a  user  to  view,  all  requests  or  selected  */ 
/*  requests  in  a  file.  Requests  are  displayed  5  at  a  time  when  */ 
/*  all  requests  must  be  viewed.  */ 

/*  GLOBAL:  req_cnt,  req_buffer[]  */ 

while  the  user  wants  to  display  requests 

t_write  Enter  a/s/q  to  display  all,  specific,  or  quit. 

t_read  display  mode 

if  all  requests  are  to  be  shown  then 

t__write  5  requests  at  a  time  from  the  request  buffer 
else  if  a  specific  request  is  desired  then 
t_write  Enter  position 
t_read  request  position 

t_write  request  from  position  in  request  array 
end  if 
end  while 

end  proc  display_req; 

***************************************************  *************/ 
proc  delete_req( ) ; 

/*  This  procedure  allows  a  user  to  delete  requests  from  a  file.  */ 
/*  The  user  is  prompted  for  the  request  to  be  deleted.  */ 

/*  GLOBAL:  req_cnt,  req__buffer[]  */ 

t_write  each  request  in  the  request  array 
while  the  user  wants  to  delete  requests 

t_write  Enter  position  of  request  to  be  deleted. 
t_read  position  of  request 

t_write  request  at  selected  position  from  request  array 
t_write  DELETE  this  request  ? 
t_read  response 
if  response  =*  yes  then 

/*  Adjust  array  to  overwrite  the  request  */ 
end  if 

t_write  Delete  another  request  ? 
end  while 

end  proc  delete_req; 


/ft***********************************************************/ 
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proc  add_req(); 

/*  This  procedure  allows  the  user  to  insert  specific  type  of  */ 
/*  rrds  requests  at  a  specific  location  in  a  request  file.  */ 

/*  A  menu  of  request  types  is  displayed  and  created.  */ 

/*  GLOBAL:  req_cntf  req_buffer[]  */ 

while  the  user  wants  to  add  requests  and  is  below  the  limit 
t_write  a  menu  of  RRDS  request  types  that  can  be  added 
t_read  the  request  type  to  be  added 
t_write  Enter  file  position  for  request  insertion 
t_read  position 

/*  Make  room  in  the  request  array  for  the  new  request.  * 
case  request  type 
AVERAGE: 

call  mar\_average (req_buffer  [position]  .request) ; 
req_cnt  =  req_cnt  +1; 

COUNT: 

call  man_count ( req_ buffer [position] .request) ; 
req_cnt  =  req_cnt  +  1? 

DEL  ETE : 

call  man_delete(req_buf fer [position] .request) ; 
req_cnt  =  req_cnt  +1; 

DIFF: 

call  man_diff ( req_buf fer [position] .request) ; 
req_cnt  =  req_cnt  +  1; 

INSERT: 

call  man_insert(req_ buffer [position] . request) ; 
req_cnt  =  req_cnt  +  1; 

INTSECT: 

call  man_intsect (req__buffer [position]  .request) ; 
r  eq_cnt  =  req_cnt  +1; 

JOIN: 

call  man_join(req_buf fer [position] .request) ; 
req_cnt  *  req_cnt  +1; 

MAX: 

call  man_max(req_buf fer [position] .request) ; 
req_cnt  =  req_cnt  +  1;; 

MIN: 

call  man_min( req_buf f er [posi tion] .request) ; 
req_cnt  =  req_cnt  +  1; 

PROJECT : 

call  mao_proj  ect  (r eq__buf  f  er  [posi  tion]  .  request)  ; 
req_cnt  =  req_cnt  +  1; 

SELECT: 

call  man_select (req_buf fer [posi tion] .request) ; 
req_cnt  =  req_cnt  +1; 

SUM: 

call  man_sum( req_buf f er [position] .request) ; 
req_cnt  =  req_cnt  +  1; 
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UNION : 

call  man__union(req_buf  fer [position] .request) ; 
req_cnt  =  req_cnt  +  1; 

UPDATE: 

call  man_update(req_buf fer [position] .request) ; 
req_cnt  =  req_cnt  +  1; 

ADHOC: 

call  man_adhoc{req_buf fer [position] .request) ; 
req_cnt  =  req_cnt  +1; 

QUIT: 

/*  exit  the  loop  */ 

OTHERWISE: 

t_write  error  message 

end  case 
end  while 
end  proc  add_req; 

y****************************** ****************************** y 
proc  modify_req( ) ; 

/*  This  procedure  allows  a  user  to  modify  specific  requests  */ 

/*  from  a  file.  The  user  is  prompted  for  the  character  string  */ 

/*  to  be  modified  and  the  replacement  string.  */ 

/*  GLOBAL:  req_cnt,  req_buffer[]  */ 

while  the  user  wants  to  modify  requests 

t_write  Enter  position  of  request  to  be  modified 
t_read  position  of  request 

t_write  the  request  from  the  position  in  the  request  array 
t_write  Modify  this  request  ? 
t_read  response 
if  response  is  yes  then 

t_write  Enter  the  string  to  be  changed. 
t_read  the  old_string 
t_write  Enter  the  new  string 
t_read  the  new_string 

/*  replace  old  string  with  the  new  string  */ 
end  if 

t_write  Modify  another  request  ? 
end  while 

end  proc  modify  .req; 

y**************************************************************y 


proc  run_req_f  ile() ; 

/*  This  procedure  allows  a  user  to  execute  requests.  */ 

/*  All  the  requests  or  selected  requests  can  be  passed  to  the  */ 

/*  Controller  for  execution.  The  results  can  be  displayed  on  */ 

/*  a  screen  and  stored  into  a  specific  output  file.  */ 

/*  GLOBAL:  req_cnt,  req_buffer,  output  */ 

t_write  Enter  name  of  request  file  to  be  used 
for  processing  requests. 
t_read  the  file  name 

f_read  requests  from  the  file  into  the  request  array 
t_write  Enter  s/f/b  to  direct  output  to  a  screen,  file,  or  both. 
t_read  the  output  location 
while  the  user  wants  to  run  requests 
t_write  Enter  a/s/q  to  run 

all  requests,  selected  requests,  or  quit 
t_read  the  mode 
if  mode  =  a  then 
call  run_all(); 
else  if  mode  =  s  then 
call  run_selected() ; 
end  if 
end  while 

end  proc  run_req_f ile; 

/*******************************************************************/ 
proc  r un_al  1  ( ) ; 

/*  This  procedure  allows  all  rrds  requests  in  the  req_buffer  to  be  */ 
/*  processed  by  the  Controller.  */ 

/*  GLOBAL:  req__cnt,  req_buffer[],  output  */ 

for  each  request  in  the  request  array 

send  the  request  to  the  controller  for  execution; 
receive  results  from  the  controller; 
if  output  =  both  or  output  =  file  then 
f_write  the  request  to  the  output  file 
f_write  the  results  to  the  output  file 
end  if 

if  output  =  both  or  output  =  screen  then 
t_write  the  request 
t_write  the  results 
end  if 
end  for 

end  proc  run_all; 

y*****************************************************************y 
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proc  run_selected() ; 

/*  This  procedure  enables  users  to  run  specific  requests  in  the  */ 
/*  req_buffer  or  interactively  create  and  run  requests.  */ 

/*  GLOBAL:  req_cnt,  req_buf fer  [] ,  output  */ 

call  display_req() ; 

t_write  prompt  for  location  of  request  (file  or  terminal) 
t_read  location  of  request 

while  the  user  wants  to  run  selected  requests 
if  the  request  is  in  a  file  then 

t_write  Enter  position  of  request  to  be  processed 

t_read  position  of  request  in  the  request  array 

t_write  the  request 

t_write  Run  this  request  ? 

t_read  response 

if  response  is  yes  then 

send  the  request  to  the  controller  for  execution; 
receive  results  from  the  controller; 
if  output  *  both  or  output  =  file  then 
f_write  the  request  to  the  output  file 

f_write  the  results  to  the  output  file 

end  if 

if  output  =  both  or  output  =  screen  then 
t_write  the  request 

t_write  the  results 

end  if 

end  if  /*  proper  request  */ 
end  if  /*  request  in  file  */ 


if  request  is  to  be  created  at  the  terminal  then 
t_write  a  menu  of  RRDS  request  types 
t_read  selected  request  type 
case  request  type 
AVERAGE: 

call  man_ average (t_ request ) ; 

COUNT: 

call  man_count (t_request) ; 

DELETE: 

call  maix_delete(t_request)  ; 

DIFF: 

call  man_diff (t_request) ; 

INSERT: 

call  man_insert (t_request) ; 

INTSECT: 

call  man^_intsect  (t_request) ; 

JOIN: 

call  man_join(t_request) ; 

MAX: 

call  marv_max(t_request) ; 

MIN : 

call  man_min(t_request) ; 

PROJECT: 

call  man_pr o  j  ect  ( t_  r  eq  ue  st )  ; 

SELECT: 

call  man_select (t_request) ; 

SUM: 

call  man_sura(t_request) ; 

UNION: 

call  man_union(t_request) ; 

UPDATE: 

cal 1  man_upda  t e ( t_r  eq  ue  st ) ; 

ADHOC: 

call  man_adhoc(t_request) ; 

QUIT: 

/*  exit  the  case  */ 

OTHERWISE: 

t_write  error  message 

end  case 


if  request  selection  is  valid  then 

send  the  request  to  the  controller  for  execution; 
receive  results  from  the  controller; 
if  output  =  both  or  output  =  file  then 

f_write  the  request  in  t_request  to  the  output  file 
f_write  the  results  to  the  output  file 
end  if 

if  output  =  both  or  output  =  screen  then 
t_write  the  request 
t_write  the  results 
end  if 

end  if  /*  selection  is  valid  */ 
end  if  /*  request  is  from  terminal  */ 
t_write  prompt  to  determine  location  of  request 
(file  or  terminal) 

t_read  prompt 

end  while  /*  more  requests  to  run  */ 
end  proc  run_selected; 

/******************************************************/ 
func  get_rel  ()  returns  (integer); 

/*  This  function  returns  the  index  of  a  relation  name  */ 

/*  in  tne  rel_tem plates  buffer  */ 

t_write  list  of  relation  names  from  templates 
t_read  rel_index  of  corresponding  relation  name 
return(rel_index) ; 
end  func  get_rel; 

proc  get_where_clause  (input:  rel_index,  output:  clause); 

/*  This  procedure  generates  the  predicates  and  conjunctions  */ 

/*  for  the  specifier  of  a  WHERE  clause  for  a  request  */ 

t_write  a  WHERE  clause  prompt 
t_read  user  response 

while  the  user  wants  to  include  another  conjunction  in  the  specifier 
t_write  prompt  for  predicates 
t_read  user  response 

while  the  user  wants  another  predicate  in  this  conjunction 
t_write  prompts  for  predicate  data 
t_read  user  responses 

/*  Include,  in  the  clause,  */ 

/*  the  predicate  for  the  conjunction  */ 
end  while 

t_write  prompt  for  another  conjunction 
t_read  user  response 
end  while 

end  proc  get_where_clause; 
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y**************************************************************^/ 
/*  This  RRDS  Controller  program  was  developed  and  written  */ 
/*  by  Leonard  A.  Lyon  during  the  Spring  1987  Semester.  */ 

/*  This  RRDS  Controller  is  designed  for  use  with  a  host  */ 

/*  simulator.  This  program  will  accept  requests  from  the  */ 
/*  host,  parse  the  requests,  generate  RC  result  data,  */ 

/*  coalesce  the  result  data,  and  forward  results  to  the  host.  */ 

y *********  *  1c  hit*  *************  ***  **********************  **********  / 

proc  main() ; 

/*  BEGIN  RRDS  CONTROLLER  */ 

/*  Initialize  string  constants  */ 

TERMINATE  =  "@"; 

CONTINUE  = 

/*  Establish  a  communication  path  with  the  host  simulator  */ 

/*  Wait  to  receive  the  first  request  from  the  host  */ 

/*  Process  requests  until  the  host  terminates  */ 

while  the  host  has  more  requests 
t_write  the  request 

yyin  =  input  request;  /*  Set  lex  input  ptr  */ 
valid_req  «  yyparseO;  /*  Invoke  the  yacc  parser  */ 
if  valid_req  *  0  then 

/*  Process  a  valid  request  */ 

/*  Simulate  broadcasting  a  request  by  */ 

/*  writing  to  BROADCAST  file  */ 

f_write  the  request  to  the  BROADCAST  file 

/*  Simulate  receiving  results  from  RCs  */ 

call  get_results( )  ; 
else  /*  an  invalid  request  */ 
t_write  an  error  message 

/*  Now  generate  error  message  for  host  */ 

call  bad_req(); 
end  if 

/*  Transmit  the  results  of  the  request  to  the  host  */ 
call  send_resul ts( ) ; 

/*  wait  to  receive  the  next  request  from  the  host  */ 

end  while 
end  proc  main; 
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proc  get_results() ; 

/*  This  procedure  examines  each  request  to  */ 

/*  determine  the  type  of  RC  result  data  to  simulate  */ 

if  recv_request  =  "DELETE"  then 

reply  =  "VALID  DELETE  COMPLETE"; 
el  se 

if  recv_request  =  "INSERT"  then 

reply  ■  "VALID  INSERT  COMPLETE"; 
else 

if  recv_request  -  "UPDATE"  then 

reply  =  "VALID  UPDATE  COMPLETE"; 
else 

if  recv_request  =  "AVERAGE"  then 
call  co_AVG(); 
else 

if  recv_request  =  "COUNT"  then 
cal 1  co_COU NT ( ) ; 
else 

if  re cv_ request  =  "MAX"  then 
call  co_MAX(); 
else 

if  recv_request  =  "MIN"  then 
call  co_MIN ( )  ; 
else 

if  recv__request  *  "SUM"  then 
call  co_SUM(); 
else 

if  recv_r eque st  =  "PROJECT"  then 
call  CO_REC0RDS  ( )  ; 
else 

if  recv_request  =  "SELECT"  then 
call  co_RECORDS ( )  ; 
else 

if  recv_ request  =  "DIFF"  then 
cal  1  co_RECORDS  ( )  ; 
else 

if  recv_ request  =  "INTSECT"  then 
call  co_RECORDS ( )  ; 
else 

if  recv_request  =  "JOIN"  then 
call  co_RECORDS ( )  ; 
el  se 

if  recv_request  =  "UNION"  then 
call  co_RECORDS()  ; 
end  if 

end  proc  get_results; 


proc  co_AVG(); 

/*  Coalesce  the  sums  and  counts  from  */ 

/*  the  RCs  to  create  the  average  value*/ 

/*  Get  simulated  RC  data  from  files  */ 

for  each  RC  result  data  file 

f_read  a  count  value  into  count_datum  from  result  file 
f_read  a  sum  value  into  sum_datum  from  result  file 
count  =  count  +  count_datum; 
sum  =  sum  +  sum_datum; 

end  for 

/*  Compute  the  true  average  */ 

avg  =  sum  /  count; 

/*  Generate  the  reply  message  */ 

reply  =  avg; 
end  proc  co_AVG; 

y,*****************************************************y' 

proc  co_COUNT(); 

/*  Coalesce  the  count  from  the  RCs  */ 

/*  Get  simulated  RC  data  from  files  */ 

for  each  RC  result  data  file 

f_read  the  count  from  result  file  into  datum 
/*  Compute  the  total  count  */ 
count  =  count  +  datum; 

end  for 

/*  Generate  the  reply  message  */ 

reply  =  count; 
end  proc  co_ COUNT; 
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proc  co_MAX() ; 

/*  Coalesce  the  max  values  from  the  RCs  */ 


/*  Get  simulated  RC  data  from  files  */ 

f_read  the  value  from  the  first  RC  file  into  max_val 

if  max_val  =  string  data  then 

/*  Process  string  data  */ 

for  each  remaining  RC  file 

/*  Coalesce  the  max  string  values  */ 
f_read  the  value 
if  value  >  max_val  then 
max_val  =  value 
end  if 

end  for 

/*  Generate  the  reply  message  */ 

reply  =  max_val; 
else 

/*  Process  numeric  data  */ 

/*  max_val  is  a  numeric  stored  as  string  */ 

max_number  =  numeric  value  of  max_val; 

for  each  remaining  RC  data  f  i!  ~i 

/*  Coalesce  the  max  digit  values  */ 
f_read  the  value  int  datum 
number  =  numeric  value  of  datum; 
if  number  >  max_nuraber  then 
max_numbe  r  =  numbe  r ; 
end  if 

end  for 

/*  Generate  the  reply  message  */ 

reply  =  max_number 
end  if 

end  proc  co_MAX; 
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proc  co_MIN(); 

/*  Coalesce  the  min  values  from  the  RCs  */ 
/*  Get  simulated  RC  data  from  files  */ 


f_read  the  value  from  the  first  RC  result  file  into  rain_val 
if  min_val  is  string  data  then 
/*  Process  string  data  */ 

for  each  remaining  RC  result  file 

/*  Coalesce  the  min  string  values  */ 
f_read  the  value  from  the  result  file 
if  value  <  min_val  then 
min_val  =  value; 
end  if 
end  for 

/*  Generate  the  reply  message  */ 
reply  =  min_val; 
else 

/*  Process  numeric  data  */ 

/*  min_val  is  a  numeric  stored  as  string  */ 

mirunumber  =  numeric  value  of  miruval; 
for  each  remaining  RC  file 

/*  Coalesce  the  min  digit  values  */ 
f_read  the  value  into  datum 
number  =  numeric  value  of  datum; 
if  number  <  min_number  then 
min_number  =  number; 
end  if 
end  for 

/*  Generate  the  reply  message  */ 

reply  =  min_number; 
end  if 

end  proc  co_MIN; 


proc  co_SUM( ) ; 

/*  Coalesce  the  sum  values  from  the  RCs  */ 

/*  Get  simulated  RC  data  from  files  */ 

for  each  RC  result  file 

/*  Compute  the  total  sum  */ 
f_read  a  value  from  a  result  file  into  datum 
sum  =  sum  +  datum; 
end  for 

/*  Generate  the  reply  message  */ 

reply  =  sum; 
end  proc  co_SUM; 


proc  co_RECORDS ( ) ; 

/*  Coalesce  the  relation  fragments  from  the  RCs  */ 

/*  SIMULATE  retrieving  data  from  each  RC  via  RC  data  files  */ 
for  each  RC  result  file 

f_read  a  random  number  of  records  in  the  file 
into  a  result  buffer  (RC_buffer) 

end  for 

/*  Now  coalesce  the  relation  fragment  records  */ 

/*  from  all  of  the  RC's.  Take  each  record  and  */ 

/*  remove  its  duplicates  in  the  rest  of  the  buffer  */ 

buf_limit  *  number  of  records  in  the  buffer; 

compare_index  =  0 ; 

while  compare_index  <  buf_limit 

compare_buf f er  =  the  record  in  RC_buf f er [compare_index] ; 

/*  Go  through  the  rest  of  the  buffer  and  remove  duplicates  */ 

buf_index  =  compare_index  +  1? 
while  buf_index  <  buf_limit 

if  compare_buf fer  =  the  record  in  RC_buf fer [buf_index]  then 
/*  A  duplicate  relation  fragment  exists  */ 

/*  Remove"  the  duplicate  by  overwriting  it  */ 

/*  There  is  now  one  less  record  in  the  buffer  */ 
buf_limit  =  buf_lirait  -  1; 
end  if 

buf_index  =  buf_index  +1; 
end  while 

compare_index  =  compare_index  +  1; 
end  while 

/*  Generate  a  reply  message  */ 

if  buf_limit  >  0  then 

reply  =  "There  are  some  results"; 
else 

reply  =  "VALID  REQUEST  —  No  Result"; 
end  if 

end  proc  co_RECORDS; 


proc  bad_req{); 

/*  Generates  an  error  message  */ 

reply  =  "INVALID  REQUEST  "; 
end  proc  bad_req; 


y******************************************************************** y 

proc  send_results( ) ; 

/*  This  procedure  transmits  the  results  of  a  request  to  the  host  */ 

/*  over  the  communication  path  */ 

if  reply  =  "There  are  some  results"  then 

/*  Send  coalesced  relation  fragments  to  the  host  from  RC_buffer*/ 
send  the  "reply"  to  the  host; 
for  each  record  in  the  result  buffer 
send  the  record  to  the  host; 
end  for 

send  an  end  of  result  message  to  the  host; 
else 

/*  send  back  only  one  result  */ 
send  the  "reply"  to  the  host; 
end  if 

end  proc  send_resul ts; 
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APPENDIX  E 


USER  /  MAINTENANCE  GUIDE 


E.l.  Usee  Guide 


The  host  simulator  program  provides  the  capability  to 

generate,  edit,  and  run  RRDS  requests.  The  host  simulator 

program  is  invoked  by  entering  "host. out".  Then,  a  menu  of 
operations  is  displayed  to  allow  a  user  to: 

(1)  Create  a  relation  template. 

(2)  Display  existing  relation  templates. 

(3)  Create  a  file  of  RRDS  requests. 

(4)  Display  the  requests  in  a  request  file. 

(5)  Edit  a  request  file. 

(6)  Send  requests  to  the  controller  program  for  execution. 

The  program  is  menu  driven  and  prompts  the  user  for  any 

necessary  information.  Thus,  no  special  commands  must  be  known 
to  use  the  host  simulator  program.  However,  at  least  one 

relation  template  must  exist  before  requests  can  be  generated  by 
the  program. 

When  the  option  to  process  requests  is  selected  from  the 
menu,  the  controller  program  must  be  invoked  by  entering 
"rrds.out"  at  a  separate  terminal.  The  controller  program  will 
accept  requests  from  the  host,  one  at  a  time,  parse  the  request, 
generate  request  results,  and  forward  results  to  the  host 
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simulator  program.  For  proper  operation,  the  executable  files, 
"host. out"  and  "rrds.out",  must  be  located  in  the  same  directory 
to  establish  the  socket  channel,  "busl",  used  for  interprocess 
communication  between  the  two  programs. 

In  addition  to  RRDS  request  files  and  output  files,  other 
files  are  created  and  used  during  the  operation  of  the  host 
simulator  and  controller  programs.  This  includes  the  "TEMPLATES" 
file,  created  by  the  host  to  store  relation  templates  created  by 
the  user,  the  "BROADCAST"  file,  created  by  the  controller  to 
simulate  transmitting  valid  requests  to  the  RCs,  and  the  result 
data  files  ( "RC_0.data",  "RC_l.data",  "RC_2.data",  and 
"RC_3 . data") ,  used  by  the  controller  to  generate  and  simulate 
request  results  of'  from  the  RCs. 

If  the  request  files,  result  files,  and  "TEMPLATES"  file 
are  damaged  as  the  result  of  a  system  crash  or  quota  overflow 
error,  they  must  be  recreated.  If  the  host  simulator  program  is 
aborted,  the  file  "busl"  may  need  to  be  removed  before  rerunning 
the  host  simulator  program.  This  can  be  easily  done  by  entering 
"rm  busl". 


E.2.  Maintenance  Guide 


Any  of  the  files  shown  in  Table  2  can  be  modified  to  alter 
the  operations  of-  the  host  simulator  or  controller  program. 

The  lexical  analyzer  generated  by  LEX,  "lex.yy.c",  reads 
input  from  the  terminal.  The  analyzer  must  be  changed  to  read 
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File  name 


I  Description 


!  host.c 
I  r  r  ds .  c 
I  rrds.vars 

I  rrds. functions 
I  parse 
I  tokens 

I  lex.yy.c 
I  y.tab.c 


source  code  for  the  host  simulator  program 
source  code  for  the  RRDS  controller  program 
common  constants  and  variables  for  both 
programs 

common  functions  used  by  both  programs 
YACC  specification  code  for  the  parser 
LEX  specification  code  for  the  lexical 
analyzer 

LEX  output  source  code  (modified  for  RRDS) 
YACC  output  source  code 


input  from  the  "r ecv_request "  buffer  (this  buffer  is  set  in  the 
controller  program,  "rrds.c",  and  contains  the  request  from  the 
host).  The  lexical  analyzer,  "lex.yy.c",  can  be  changed  to  read 
request  characters  from  the  buffer  as  follows: 

(1)  Comment  out  the  "FILE"  declaration  of  "yyin". 

(■yyin"  is  redefined  in  "rrds.c".) 

(2)  Append  "++"  increment  symbols  to  "yyin"  in  the 
declaration  of  the  "input"  function. 

(3)  Change  "getc"  to  "get_rrds_req_ch "  in  the  declaration 
of  the  "input"  function  so  that  input  is  not  taken 
from  the  terminal. 

(4)  Define  "ge t_r rds_req_ch"  function  as  follows: 


g e t_ r r ds_ r eq_ch ( p ) 
char  *p ; 

if(*p=='\0')  return(EOF); 
return(0377  &  *p) ; 


The  "get_rrds_req_ch"  function  returns  a  bit  mapped 
character  from  the  current  character  pointer.  (This 
pointer,  "p",  is  set  in  "rrds.c"  to  the  beginning  of 
the  "r ecv_request "  buffer  and  is  incremented  when 
the  lexical  analyzer  invokes  the  "input"  function.) 


UNCLASSIFIED 


Him  AND  IAPLEHENTAT I  ON  OF  A  CONTROLLER  AND  A  HOST 
SIMULATOR  FOR  A  RELA. .  <U>  AIR  FORCE  INST  OF  TECH 
HRIGHT-PATTERSON  AFB  OH  L  A  LVON  1987  AFIT/CI/NR-88-M. 


■ 


APPENDIX  F 


LEX  SPECIFICATION  CODE 


This  appendix  presents  the  tokens  that  are  used  in  the  LEX 
specification  code  to  create  the  lexical  analyzer,  "yylexO". 
These  tokens  are  derived  RRDS  requests  and  are  passed  to  the 
parser,  "yyparse () ". 


%*. 

"ALL" 

{  return (ALL) ;  } 

"AND" 

{  return(AND) ;  } 

"FROM" 

{  return  (FROM)  ;  } 

"INTO" 

{  return (INTO) ;  } 

"IN" 

{  return(IN);  } 

"OR" 

{  return(OR);  } 

"WHERE" 

{  return (WHERE) ;  } 

"AVERAGE" 

{  return (AVERAGE) ;  } 

"COUNT" 

{  r  eturn  (COUNT)  ,*  } 

"MAX" 

{  return(MAX) ;  } 

"MIN" 

{  return(MIN) ;  } 

"SUM" 

{  return(  SUM) ;  } 

"DIFF" 

{  return(DIFF) ;  } 

"DELETE" 

{  return  (DELETE)  ;  } 

"INSERT" 

{  r eturn ( INSERT) ?  } 

"INTSECT" 

{  return ( INTSECT) ;  } 

"JOIN" 

{  return( JOIN) ;  } 

"PROJECT" 

{  return  (PROJECT) ;  } 

"SELECT* 

{  return( SELECT) ;  } 

"UNION" 

{  return(UNION) ;  } 

"UPDATE" 

{  r eturn ( UPDATE) ;  } 

I 


[A-Z] 

{ 

return (UC_LETTER)  ;  } 

[a-z] 

{ 

return (LCLLETTER) ;  } 

[0-9] 

{ 

return(DIGIT) ;  } 

".as" 

• 

•  L  ■ 

{ 

1 

return(ASSIGIl_OP) ;  } 

1 

{ 

return(ADD_OP) ;  } 

■*■ 

1 

■  ym 

{ 

return (MUL_OP) ;  } 

"<=" 

1 

■>=" 

1 

"<>■ 

1 

■  ^  ■ 

1 

■>" 

1 

■  =  m 

{ 

return(REL_OP) ;  } 

m  m 

• 

{ 

return(PERIOD) ;  } 

«  ■ 

r 

{ 

return(COMMA) ;  } 

"i" 

{ 

return  (LB  RACKET)  ;  } 

Mj  II 

{ 

return (RB RACKET) ;  } 

{ 

return(LPAREN)  ;  } 

■  j  m 

{ 

return (RPAREN)  ;  } 

[  \t\£\n] 

• 

9 

• 

{ 

return(BAD) ;  } 
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YACC  SPECIFICATION  CODE 


This  appendix  contains  the  "YACC"  specification  code  that 
is  used  to  generate  the  parser  for  the  controller  program, 
"yyparseO".  The  parser  accepts  the  tokens  from  the  lexical 
analyzer,  "yylexO",  and  matches  them  with  the  "YACC"  syntax 
specification  code  shown  below,  "nis  syntax  specification  code 
is  based  on  the  BNF  description  of  the  RRDS  data  manipulation 
language  presented  in  Appendix  A. 


%tOken  ALL  AND  ASSIGN_OP  BAD 
%token  FROM  IN  INTO  OR  WHERE 
%token  AVERAGE  COUNT  MAX  MIN  SUM 
%token  DIFF  DELETE  JOIN 
%token  INSERT  INTSECT  PROJECT 
%token  SELECT  UNION  UPDATE 
%token  DIGIT  LC_LETTER  UC_LETTER 

%token  PERIOD  COMMA  LB RACKET  RB RACKET  LPAREN  RPAREN 
%lef t  ADD_OP  MUL_OP  REL_OP 


%% 

Request 

Query 


LB RACKET  Query  RB RACKET 


:  Select_Query 
I  Insert_Query 
I  Update_Query 
I  Union_Query 
I  Intsect_Query 


Proj  ect_Que  ry 
Del  e  te_Que  ry 
Join_Que  ry 
Diff_Que  ry 
Agq_Query 


Agg_Query 


:  Av  e_Ag  g 
I  Min_Agg 


Count_Agg 

Sum_Agg 


Max_Agg 


Select_Query :  :  SELECT  FROM  Target_Relation 

WHERE  LPAREN  Specifier  RPAREN 
I  SELECT  ALL  FROM  Target_Rel ation 

I 

Pr o j ect_Que ry  :  PROJECT  LPAREN  Attr_List  RPAREN  FROM  Target_Rel ation 
i  PROJECT  LPrtREN  Attr_List  RPAREN  FROM  Target_Rel ation 
WHERE  LPAREN  Specifier  RPAREN 


0 

S‘ 

I 

II 


$ 

w 

I 

I 


» 

i 

& 


Insert— Query 
Delete_Query 


:  INSERT  LPAREN  Record  RPAREN  INTO  Target_Relation 

9 

:  DELETE  FROM  Targe t_Rel ation 

WHERE  LPAREN  Specifier  RPAREN 
I  DELETE  ALL  FROM  Target_Relation 


Update— Query 


Diff_Query 


UPDATE  LPAREN  Modifier  RPAREN  IN  Target_Rel ation 
UPDATE  LPAREN  Modifier  RPAREN  IN  Target_Rel ation 
WHERE  LPAREN  Specifier  RPAREN 

Target_Relation  DIFF  Target_Rei ation 


Intsect— Query 
JoiruQuery 
Union_Query 
Ave_Agg 

Count_Agg 


MaX-Agg 

Min_Agg 

Sum_Agg 

Target_Rel ation 
Record 

Record-Segment 


Target-Relation  INTSECT  Target— Relation 

Target_Rel ation  JOIN  Tar get_Rel ation 

Targe t_Rel ation  UNION  Target_Rel ation 

AVERAGE  LPAREN  Attribute  RPAREN  FROM  Target_Relati 
AVERAGE  LPAREN  Attribute  RPAREN  FROM  Targe t_Relati 
WHERE  LPAREN  Specifier  RPAREN 

COUNT  FROM  Target_Rel ation 
COUNT  FROM  Target_Rel ation 

WHERE  LPAREN  Specifier  RPAREN 

MAX  LPAREN  Attribute  RPAREN  FROM  Target-Relation 
MAX  LPAREN  Attribute  RPAREN  FROM  Target-Relation 
WHERE  LPAREN  Specifier  RPAREN 

MIN  LPAREN  Attribute  RPAREN  FROM  Target— Rel ation 
MIN  LPAREN  Attribute  RPAREN  FROM  Target-Relation 
WHERE  LPAREN  Specifier  RPAREN 

SUM  LPAREN  Attribute  RPAREN  FROM  Target-Relation 
SUM  LPAREN  Attribute  RPAREN  FROM  Target-Relation 
WHERE  LPAREN  Specifier  RPAREN 

:  String 

9 

:  Record-Segment 

9 

:  At tr_Val ue_ Pa i r 

I  Record-Segment  COMMA  Attr_ Value_Pair 


At  t  r_ Val  ue_ Pa  i  r 
Attr_ List  : 


:  Attribute  ASSIGN_OP  Value 

9 

Attribute 

Attr_ List  COMMA  Attribute 
String 


Attribute 


Specifier 


:  Conjunction 

1  Specifier  OR  Conjunction 


Conjunction 

PrecLList 

Predicate 

Modifier 


:  LPAREN  Pred_List  RPAREN 

9 

:  Predicate 

I  PrecLList  AND  Predicate 

• 

9 

:  Attribute  REL_OP  Value 

9 

:  Assign_Statement_List 


Assign_Statement_List  :  Assign_Statement 

I  Assign_Statement_List  COMMA  Assign_Statement 

9 

Assign_Statement  :  Attribute  ASSIGN_OP  Arithm_Expression 

$ 

Arithm_Expression  :  Term 

I  Arithm_Expression  ADD_OP  Term 

9 

Term  :  Factor 

I  Term  MUL_OP  Factor 


$ 

/*  Factor  :  Attribute  I  Value  */ 

/*  I  LPAREN  Arithm_Expression  RPAREN  */ 

/*  ;  V 

/**************************************************/ 

/*  */ 

/*  The  actual  BNF  for  Factor  is  shown  above.  */ 

/*  However,  "Attribute"  was  eliminated  from  the  */ 

/*  YACC  implementation  to  eliminate  the  */ 

/*  "reduce/reduce"  ambiguity  conflicts,  as  */ 

/*  shown  below.  The  conflict  occurs  because  */ 

/*  "Attribute"  and  "Value"  are  both  defined  as  */ 

/*  a  "String".  YACC's  default  conflict  resolution  */ 

/*  would  cause  "Attribute"  to  be  chosen  for  */ 

/*  "Attribute"  or  "Value".  */ 

/*  V 

/A*************************************************/ 

Factor  :  Value  I  LPAREN  Arithm_Expression  RPAREN 
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/*******************************************************^/ 


/* 

*/ 

/* 

HOST  SIMULATOR 

V 

/* 

*/ 

/*******************************************************/ 

/* 

*/ 

/* 

Developed  and  Written  by 

*/ 

/* 

LEONARD  A.  LYON 

V 

/* 

Spring  1987 

*/ 

/* 

*/ 

/* 

This  host 

simulator  program  is  designed  for  use 

*/ 

/* 

with  the  RRDS  Controller.  This  program  is  menu 

*/ 

/* 

driven  and 

allows  users  to  interactively  create. 

*/ 

/* 

edit,  and 

run  RRDS  requests.  Requests  are  passed 

*/ 

/* 

to  the  Controller  one  at  a  time  via  a  socket 

*/ 

/* 

channel . 

Request  results  are  received  from  the 

*/ 

/* 

Controller 

and  can  be  logged  in  a  file. 

V 

/* 

displayed 

at  the  terminal,  or  both. 

V 

/* 

*/ 

/*******************************************************/ 


1 

H 


♦include  <stdio.h> 
♦include  <string.h> 
♦include  <sy s/types. h> 
♦include  <sy s/socket. h> 
♦include  <sys/un.h> 
♦include  "rrds.vars" 
♦include  "rrds. functions" 


/*  BEGIN  HOST  SIMULATOR  */ 


main() 

{ 

int  rel_index; 
int  att_index; 
int  select; 
char  *getlogin() ; 

/*  Initialize  the  request  delimters  and  other  constants  */ 

strcpy  (BLANK,  "  ") ; 
strcpy(BOR, 

strcpy (CONTINUE,  "+"); 
strcpy (EOR,  "]"); 
strcpy (TERMINATE,  "@") > 
strcpy  (REL[0]  .OP,  "<-■) ; 
strcpy (REL 11] .OP,  ">="); 
strcpy (REL [2] .OP,  "<>"); 
strcpy (REL [3] .OP,  ; 
strcpy (REL 14] .OP,  "<") ; 
strcpy (REL [5] .OP,  "=") ; 

/*  Retrieve  relation  templates  from  TEMPLATE  file  */ 

tmpl_cnt  =  0 ; 

strcpy  (tmpl_name,  "TEMPLATES"); 

tmpl_desc  =  f  open(tmpl_name,  "r"); 
if(tmpl_desc  1=  NULL) 

{ 

while(f scanf (tmpl_desc,  "%s  %d", 

&rel_templates [tmpl_cnt] . rel_name [0] , 

^ &rel_templates  [tmpl_cnt ]  .  rel_nof_attrs)  1=  EOF) 

att_index  =  0; 

while (att_index  <  rel_teraplates  [tmpl_cnt]  . rel_nof_attr s) 
f scanf (tmpl_de sc,  "%s  %c", 

&rel_tera  plates [tmpl_cnt] . rel_attr s (att_index] .at_name[0] 
&rel_templates [tmpl_cnt ] . rel_attr s [att_index] .at_type) ; 
++  att_index; 


++  tmpl_cnt; 


f close (tmpl_de sc) ; 


«*.  ■*.  ■*.  A  -  .  -VA,  AAAA  *V' A. A.  «  .  A 


@r 


active_bus  *  0; 
select  =  1; 

while  (select  1=  QUIT) 


pcintf ( ************************  ************************  **\n *) j 
printf ( *******  ******\n») . 

printf  (  *******  HELLO  %8s  ******\n"f  getloginO  )  ; 

printf  (  "******  ******\g^  *)  . 

printf  (  *******  WELCOME  TO  THE  ******\n")'. 

printf ( *******  ******\n"). 

printf ( "******  host  SIMULATOR  (Level  1)  ******\n"); 

printf ("******  ****** \ n  * ) ; 

printf ( ******************************  ******************** \n\n " ) ; 
printf ( "Please  select  a  number  for  the  desired  operation. \n ") ; 
printf ("[1]  CREATE  a  relation  template  \n") ; 
printf  ("[2]  DISPLAY  relation  templates  \n")  ; 
printf ("[3]  CREATE  a  request  file  \n"); 

printf  ("[4]  DISPLAY  a  request  file  \n"); 

printf  ("[5]  EDIT  a  request  file  \n"); 

printf  ("[6]  RUN  a  request  file  \n"); 

printf ( " [ %d ] 
prompt  () ; 
scanf("%d",  &s 
getchar  ()  ; 
switch (select) 


QUIT  \n",  QUIT); 


Sselect ) ; 


/*  read  '\n'  */ 


case  1;  create_template () ; 
break; 

case  2:  show_templates () ; 
break; 

case  3s  create_req_f ile ( ) ; 
break; 

case  4:  show_req_f ile()  ; 
break; 

case  5:  edit_req_f il e ( ) ; 
break; 

case  6:  run_req_file{)  ; 
break; 

case  QUIT:  break; 

default:  printf ( "INVALID  SELECTION  %d  \n",  select); 


case 


case 


case 
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/*  Check  if  channel  "busl"  was  created  and  connected  to  Controller  */ 

if  (active_bus  -=  1) 
disconnect_bus ( ) ; 

/*  Save  relation  template  descriptions  */ 

if  (tmpl_cnt  >  0) 

{ 

tmpl_desc  =  f open (tmpl_name,  "w"); 
rel_index  =  0; 

while  (rel_index  <  tmpl_cnt) 

f  printf (tmpl_desc,  "%s  %d\n", 

rel_templates [rel_index] . rel_name, 
rel_templ ates [rel_index] . rel_nof_attr s) ; 
att_index  =  0; 

whil e (att_index  <  rel_templates [r el_index] . rel_nof_attrs) 

{ 

f printf  (tmpl_de sc,  "%s  %c\n", 

rel_templates [rel_index] . rel_attrs [att_index] .at_name, 
rel_templates [rel_index] . rel_attrs [att_index] .at_type) ; 
++  att_index; 

} 

++  rel_index; 

} 

f  close  (tmpl_desc)  ; 

} 

} 

/★a***************************************************************************/ 
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/*  Create  the  name  of  the  new  relation  template  */ 

printf ( "Create  another  relation  template  ?  (y/n)  \n"); 

prompt  ()  ; 
gets (select ) ; 

while( (select [0]  ==  'y'  II  select [0]  ==  1 Y' )  &&  tmpl_cnt  <  MAX_RELS) 

{ 

printf ( "Enter  name  of  relation  template.  \n") ; 
prompt  ()  ; 
gets (name) ; 

strcpy (rel_templates [tmpl_cnt] . rel_name,  name); 

/*  Create  the  attribute  names  for  the  new  relation  template  */ 
at_pos  =  0; 

while (at_pos  <  MAX_ATTRS) 

{ 

printf ( "Enter  name  of  attribute  or  hit  'RETURN'  key\n"); 
prompt  ()  ? 
gets (name) ; 
if (name  [0]  ==  '\0') 

/*  user  is  finished  */ 
break; 
else 
{ 

/*  Process  valid  name  */ 

strcpy (rel_ templates [tmpl_cnt] . rel_attrs [at_pos] . at_name, name) ; 

printf ( "Enter  attribute  type  (C/I)  \n"); 
prompt  ()  ; 
gets (name) ; 

rel_templates  [tmpl_cnt]  .rel_attrs [at_pos]  .at_type  =  name[0]; 

++  at_pos; 

} 

} 

rel_templates [tmpl_cnt] . rel_nof_attrs  -  at_pos; 

++  tmpl_cnt; 

printf ( "Create  another  relation  template  ?  \nB); 
prompt  ()  ; 
gets (select ) ; 


P 
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create_req_f  il  e  { ) 

/*  This  procedure  allows  the  user  to  store  rrds  requests  that  are  created  */ 
/*  either  manually  or  automatically  by  the  system.  */ 
/*  GLOBAL:  req_cnt,  req_buffer[]  */ 


int  index; 

static  char  selection [2] ; 
req_cnt  =  0; 


printf ( "Enter  the  file  name  to  be  created  \n") ; 
prompt ( ) ; 
gets(file_name) ; 


if  ( f ile_name [0]  ==  '\0') 
return; 


file_desc  »  f open(file_name,  "w"}; 


if  ( f ile_desc  ==  NULL) 


printf ( "ERROR:  Cannot  create  %s  \n",  file_name) ; 
return; 


printf ( "Enter  'a'  or  'm'  for  automatic  or  manual  request  generation  \n") ; 

prompt  () ; 

gets (selection) ; 


if  (selection[0]  ==  'a'  II  selection[0)  ==  'A') 
auto_req_gen()  ; 

if  (selection [ 0]  ==  'm*  II  selection[0]  ==  'M') 
man_req_gen()  ; 


/*  Save  all  created  requests  */ 


index  =  0; 

while  (index  <  req_cnt) 


f printf (file_desc,  "%s\n",  req_buffer [index] . request) ; 
++  index; 


f  close  (f  ile_desc) ; 
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aut  o_  r  eq_ge  n  ( ) 

/*  This  procedure  provides  a  menu  of  requests  to  be  created  automatically  */ 
/*  by  the  system  and  runs  the  selected  request  generator  program.  */ 

{ 

int  selection; 
selection  =  1; 
while  (selection  I*  QUIT) 

{ 

printf ( "Select  type  of  request  to  be  generated:  \n") ; 

printf ( " [1]  INSERT  \n") ; 
printf ( " [%d]  QUIT  \n",QUIT); 
prompt  ()  ; 

scanf("%d",  Sselection) ; 
getcharO;  /*  Read  \n  */ 
switch (selection) 

{ 

case  1:  auto_insert ( ) ; 
break; 

case  QUIT:  break; 

default:  printf  ( "INVALID  SELECTION  %d  \n",  selection); 


m 

M 

i 


& 


W;v 


1 


$ 


~ 


r  **■#"*' 


IW  >  _ HW  NKtllK.H'tXUI 


v\  vu  kjiw  w  w  in  vu  vu  vj  w? 


105 


auto_insert () 

/*  This  procedure  creates  a  set  of  rrds  INSERT  requests  with  user  input  */ 
/*  GLOBAL:  tmpl_cnt,  rel_templates  []  ,  req_cnt,  req_buffer[]  */ 


{ 


int  at_index; 

int  auto_index; 

int  choice; 

int  gen_index; 

int  rel_index; 

int  req_index; 

int  req_bound; 

char  value  [VAL_SIZE] ; 

int  i nput_ bound [MAX-ATTRS] 


/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


attribute  index  in  relation  template  */ 
index  for  requested  data  to  create  recs  */ 
random  index  value  for  data  selection  */ 
index  for  the  number  of  requests  genned  */ 
relation  index  in  relation  template  */ 
index  to  request  array  in  req_buffer 
number  of  requests  to  be  created 
derived  from  lower  &  upper  bounds 
number  of  string  data  values 


V 

*/ 

V 

V 


struct  { 

char  data [VAL_SIZE] ; 

}  str_input [MAX_ATTRS]  [MAX_AUTO] ; 

struct  { 


char  lower  [10] ; 
char  upper [10]; 

}  nuiiL_input  [MAX_ATTRS]  ? 

/*  Get  relation  name  for  the  request  */ 


printf ("Generate  INSERT  requests  from  which  relation  ?\n") ; 
rel_index  =  get_rel(); 

/*  Determine  how  many  requests  to  create  */ 
req_bound  =  -1; 

while (req_ bound  <=  0  | |  req_bound  >  MAX_GEN) 

{ 

printf ("How  many  requests  do  you  want  to  create  ?  (  <=  %d)\n"f  MAX_GEN) ; 
scanf("%d",  &req_bound) ; 
getcharO;  /*  Read  \n  */ 

} 

/*  Determine  total  string  data  values  the  user  will  provide  per  attribute  */ 

for(at_index  =  0;at_index  <  rel_templates [rel_index] . rel_nof_attr s;++at_index) 
input_bound [at_index]  =  -1; 
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while (input_bound [at_index]  <  0  II  input_bound [at_index]  >  MAX_AUTO) 

{ 

printf("How  many  data  values  do  you  want  to  provide  for  %s  ?", 
rel_templates [rel_index] . rel_attrs [at_index] .at_name) ; 

if (rel_tem plates [rel_index] .rel_attrs [at_index] .at_type  ==  * i ' 
rel_templates [rel_indexj . rel_attrs [at_index] .at_type  ==  'I') 
printf ("  0  for  range  OR  ") ; 


printf ("  {  <=  %d)\n",  MAJL.AUTO)  ? 
scanf ( "%d",  &input_bound [at_index] ) ; 
getcharO;  /*  Read  \n  */ 


} 


} 


/*  Get  data  for  the  attributes  used  in  the  request  */ 
at_index  =  0; 

while(at_index  <  rel_templates [rel_index] . rel_nof_attrs) 


{ 


} 


} 


if ( ( rel_templates [rel_index] . rel_attrs [at_index] .at_type  ==  ’I'  I  I 

rel_templates [rel_index] . rel_attrs [at_index] .at_type  ==  ' i ' )  && 
( input_bound Iat_index]  ==  0)) 


{ 


} 


printf ( "Enter  a  numeric  lower  bound  for  %s.  ", 

rel_templates [rel_index] . rel_attrs [at_index] .at_name) ; 
prompt  () ; 

gets (num_input [at_index] .lower) ; 

printf { "Enter  a  numeric  upper  bound  for  %s.  ", 

rel_templates [rel_index] . rel_attr s [at_index] .at_name) ; 
prompt  () ; 

gets (num_input [at_index] .upper) ; 


++  at_index; 

} 

printf ( "\n\n") j 
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for(at_index  =  0;at_index  <  rel_templates [rel_index] . rel_nof_attrs;++at_index) 


if ( input_bound [at_index]  1=  0) 

{ 

printf ( "Enter  data  at  each  prompt  to  create  records. \n") ; 
printf ( "NOTE:  Character  data  must  start  with  an  upper  case  letter."): 
printf l"\n") ; 
auto_index  *  0; 

while (auto_index  <  input_bound [at_index] ) 
printf ("%20s  ", 

rel_templates [rel_index] . rel_attrs [at_index] .at_name) ; 
printf ( " ( %c )  ", 

rel_templates [rel_index] . rel_attrs [at_index] .at_type) ; 
prompt  ()  ; 

gets(str_input [at_indexj [auto_index] .data) ; 

++  auto_index; 


107 


P 

m 


/*  Now  create  the  insert  requests  from  the  data  provided  */ 
gen_index  =  0; 

while (gen_index  <  req_bound  &&  req_cnt  <  MAX_REQ) 

{ 

strcpy (req_buffer Ireq_cnt] .request,  BOR) ; 
strcat (req_buf fer [req_cntj .request,  "INSERT  ("); 
at_index  =  0 ; 

/*  Include  attribute  value  pairs  in  the  request  */ 

while (at_index  <  rel_templates [rel_index] . rel_nof_attrs) 

{ 

if(at_index  >  0) 

strcat (req_buf fer [req_cnt] . request,  ", ") ; 
strcat (req_buffer [req_cnt] .request, 

rel_templates [rel_index] . rel_attrs [at_index] .at_name) ; 
strcat ( req_buffer [req_cnt] .request,  "  :=  "); 
if ( input_bound [at_index]  1®  0) 

{ 

choice  =  random ( input_bound [at_index] ) ; 
strcat (req_buf fer [req_cnt] . request, 

str_input [at_index] [choice] .data) ; 

} 

if ( ( rel_templates [rel_index] . rel_attrs [at_index] .at_type==  'I*  I  I 
rel_templates [rel_index] . rel_attrs [at_index] .at_type==  ' i ' )  && 
( input_bound [at_index]  ==  0)) 

gendigits(&value [0] ,  &num_input [at_index] .lower [0] , 

&num_input [at_index] .upper [0] ) ; 
strcat (req_buf fer [req_cntj . request,  value) ; 

++  at_index; 

} 

/*  Include  the  INTO  clause  in  the  request  */ 
strcat (req_buffer [req_cnt] . request,  ")  INTO  ") ; 

/*  Include  the  relation  name  in  the  request  */ 

strcat (req_buf fer [req_cnt] . request,  rel_templates  [rel_index] . rel_name) ; 

/*  Add  the  EOR  to  the  request  */ 

strcat (req_buf fer [req_cnt] .request,  EOR) ; 
printf ( "%s\n",  req_buf f er [req_cnt] .request) ; 

++  req_cnt ; 

++  gen_index; 

} 

^printf  ( "\n\n") ; 

/A**************************************************************************/ 


I 

| 

n 

m 


fell: 

m 


w 

W: 

m 

I 

m 

♦WiN 


I 


■i 


«y\nw  .VI  TCium  jv.  «n  *n  *\n  /vi  jvi  iv\  n/ivi  ^  >v  \  ™  •  >v » #v  i| 

1 


108 


man_req_gen ( ) 

/*  This  procedure  provides  a  menu  of  rrds  request  types  that  are  */ 
/*  created  by  the  user.  The  appropriate  request  generator  program  */ 
/*  is  executed  based  on  user  input.  */ 

/*  GLOBAL :  req_cnt,  req_buffer[]  */ 

int  select; 


select 

while 


=  1? 
(select 
{ 


1=  QUIT  &&  req_cnt  <  MAX_REQ) 


pr intf ( "PI ease  sel ect 
printf  ( "  [1]  AVERAGE 
printf ( " 12]  COUNT 
printf ("[3]  DELETE 
printf ("[4]  DIFF 


a  number  to  create  the  desired  request. \n") ; 

[5]  INSERT  [9]  MIN  [13]  UNION  \n") ; 

[6]  INTSECT  [10]  PROJECT  [14]  UPDATE  \n")  ; 

[7]  JOIN  [11]  SELECT  [15]  ADH OC/ ERROR\n " ) 

[8]  MAX  [12]  SUM  [%d]  QUIT  \na,QUIT)  ; 


prompt  () ; 

scanf("%d",  ^select); 
getcharO;  /*  Read  \n  */ 
switch  (select) 

{ 


case  1: 

case  2: 

case  3: 

case  4: 

case  5: 

case  6: 

case  7 : 

case  8: 

case  9s 

case  10: 


maiu  aver age (req_buf f er [req_cnt] . request) ; 

++  req_cnt; 

break; 

man_count (req_buf f er [req_cnt] .request) ; 

++  req_.cn  t ; 
break; 

man_delete (req_buf f er [req_cnt] .request) ; 

++  req_cnt ; 

break; 

man_dif f (req_buf f er [req_cnt] . request) ; 

++  req_cnt; 
break; 

man_insert ( req_buf f er [req_cnt] .request) ; 

++  req_cnt; 

break; 

maruintsect  (req_buf fer  [req_cnt]  .request) ; 

++  req_cnt; 

break; 

man_join(req_buf f er [req_cnt] . request) ; 

++  req_cnt; 
break; 

man_max (req_buf f er [req_cnt] . request) ; 

++  req_cnt; 
break; 

man_min(req_buf f er [req_cnt ] .request) ; 

++  req_cnt; 
break; 

man_project (req_buf f er [req_cnt] .request) ; 

++  req_cnt; 

break; 


•SV.T*'.** 


109 


H 
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case  11:  mai\_select  (req_buffer  [req_cnt]  . request) ; 

++  req_cnt; 
break; 

case  12:  man_sum(req_buff er [req_cnt] .request) ; 

++  req_cnt; 
break; 

case  13:  man_union(req_buff er [req_cnt] .request) ; 

++  req_cnt; 
break; 

case  14:  man_update (req_buffer [req_cnt] . request) ; 

++  req_cnt; 
break; 

case  15:  man_adhoc(req_buf fer [req_cnt] .request) ; 

++  req_cnt; 
break; 

case  QUIT:  break; 

default:  printf ( "INVALID  SELECTION:  %d  \n",  select); 

if (select  >  0  &&  select  <=  15) 

printf ( "\n%s\n\n",  req_buf f er [ (req_cnt-l) ] .request); 


1 


y*  /*** ***************************************************************** ********* / 

maruadhoc  (request ) 

»/*  This  procedure  allows  a  user  to  enter  any  type  of  request  with  delimiters  */ 

/*  This  routine  is  useful  for  creating  erroneous  rrds  requests  to  verify  the  */ 

/*  syntax  analysis  capabilities  of  the  RRDS  Controller.  */ 

char  request!];  /*  ptr  to  a  request  buffer  */ 

char  c[2];  /*  input  character  */ 

int  req_index;  /*  index  into  character  array  of  a  request  */ 

c[0]  «  '\0 1 ; 
ell)  =  '\0'; 
while  (c[0]  1*  BOR[0] ) 

{  , 
printf  ( "Enter  request  with  '%c'r  '%c'  delimiters. \n",  BOR[0],  EOR[0]); 
promptO; 
c [0]  =  getchar () ; 

} 

strepy (request,  c) ;  /*  BOR  */ 

req_index  =  1; 
c [0]  ■  getchar () ; 

while  (c [ 0]  1=  EOR [ 0 ]  &&  req_index  <  (REQ_LENGTH  -  1)) 

{ 

streat (request ,  c) ; 

++  req_index; 
c [0]  »  getchar () ; 
if  (c[0]  --  '\n ' ) 

c(0]  *  BLANK  [0]  ; 

} 

getchar ();  /*  Read  \n  */ 
streat (request,  EOR); 

r  /****************************************************************************/  •_ 
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mau_ average  (request) 

«/*  This  procedure  creates  a  rrds  AVERAGE  request  with  user  input  */ 
/*  GLOBAL :  tmpl_cnt,  rel_templates  *' 


/ 


char  request  []; 


{ 


int  at_index; 

int  rel_index; 

char  where [MAX_WHERE] ; 


/*  ptr  to  a  request  buffer  */ 

/*  attribute  index  in  relation  template 
/*  relation  index  in  relation  template 
/*  store  any  WHERE  clause 


V 

V 

*/ 


/*  Get  relation  name  for  the  request  */ 


printf  ( "Generate  AVERAGE  request  from  which  relation  ?  'n")  ; 
rel_index  =  get_rel ( ) ; 


/*  Get  the  attribute  used  in  the  request  */ 


printf ( "Generate  AVERAGE  request  for  which  attribute  ?  \n") ; 
at_index  =0; 

while  (at_index  <  rel_templates [rel_index] . rel_nof_attrs) 


{ 


if  (rel_tem plates [rel_index]  . rel_attrs [at__index]  .at_type  ==  'I'  II 
rel_templates[rel_index] . rel_attrs [at_index] .at_type  ==  ' i * ) 


{ 


} 


printf ("[%dj  %20s  \n",  at_indexr 

rel_templates [rel_index] . rel_attrs [at_index] .at_name) ; 


} 


++  at_index; 


prompt  ()  ; 

scanf ( "%d",  &at_index) ; 
getcharO;  /*  Read  \n  */ 


/*  Get  the  WHERE  clause  if  necessary  */ 
get_where_ clause (rel_index,  where) ; 


/*  Now  create  the  AVERAGE  request  from  the  data  provided  */ 


strcpy (request,  BOR); 
strcat (request,  "AVERAGE  ("); 

/*  Include  the  selected  attribute  in  the  request  */ 

strcat (request,  rel_templates [rel_index] . rel_attrs [at_index] .at_name) ; 

/*  Include  the  FROM  clause  in  the  request  */ 
strcat (request,  ")  FROM  ") ; 

/*  Include  the  relation  name  in  the  request  */ 
strcat (request,  rel_templates [rel_index] .rel_name); 

/*  Include  any  WHERE  clause  in  the  request  */ 
if  (where[0]  1=  ' \0 * ) 

{  /*  Include  the  WHERE  clause  in  the  request  */ 
strcat (request,  BLANK); 
strcat (request,  where); 

} 

strcat (request,  EOR) ; 

} 

/********** ************************************************************* ****** 


man_max ( r  eq  ue  s t ) 

/*  This  procedure  creates  a  rrds  MAX  request  with  user  input  */ 
/*  GLOBAL:  tmpl_cnt,  rel_templates,  */ 


char 

request  [1 ; 

/* 

{ 

int 

at_index; 

/* 

int 

rel_index; 

/* 

char 

where [MAX_WHERE] ; 

/* 

ptr  to  a  request  buffer  */ 


attribute  index  in  relation  template 
relation  index  in  relation  template 
store  any  WHERE  clause 


*/ 

V 

*/ 


/*  Get  relation  name  for  the  request  */ 


printf ( "Generate  MAX  request  from  which  relation  ?  \n"); 
rel_index  *  get_rel ( ) ; 


/*  Get  the  attribute  used  in  the  request  */ 


printf ( "Generate  MAX  request  for  which  attribute  ?  \n") ; 
at_index  =  0; 

while  (at_index  <  rel_ templates [rel_index] . rel_nof_attrs) 


printf ("[%d]  %20s  \n",  at_index, 

rel_templates  [rel_index]  .  rel_attrs  [at_ind<*x]  ,at_name) ; 
++  at_index; 


prompt  ()  ; 

scanf ( "%d " ,  &at_index) ; 
getcharO;  /*  Read  \n  */ 


/*  Get  the  WHERE  clause  if  necessary  */ 


get_where_ clause (rel_index,  where) ; 


/*  Now  create  the  MAX  request  from  the  data  provided  */ 


strcpy (request,  BOR); 
strcat (request,  "MAX  ("); 


/*  Include  the  selected  attribute  in  the  request  */ 


strcat (request,  rel_templates [rel_index] . rel_attrs [at_index] .at_name) ; 


/*  Include  the  FROM  clause  in  the  request  */ 


strcat  (request,  ")  FROM  ")  ; 


/*  Include  the  relation  name  in  the  request  */ 


strcat (request,  rel_ templates [rel_index] ,rel_name); 


/*  Include  any  WHERE  clause  in  the  request  */ 


if  (where[0]  1=  '\0') 

{  /*  Include  the  WHERE  clause  in  the  request  */ 
strcat (request,  BLANK); 
strcat (request,  where); 

} 

strcat (request,  EOR) ; 


' * *********************************************************************** 
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man_min  ( r  eq  ue  st ) 

/*  This  procedure  creates  a  rrds  MIN  request  with  user  input  */ 
/*  GLOBAL:  tmpl_cnt,  rel_templates,  */ 


/ 


char  request  []; 

{ 


/*  ptr  to  a  request  buffer  */ 


int  at_index; 

int  rel_index; 

char  where  [MAJL.WHERE]  ? 


/*  attribute  index  in  relation  template 
/*  relation  index  in  relation  template 
/*  store  any  WHERE  clause 


V 

*/ 

*/ 


/*  Get  relation  name  for  the  request  */ 

printf ( "Generate  MIN  request  from  which  relation  ?  \n"); 
rel_index  =  get_rel(); 

/*  Get  the  attribute  used  in  the  request  */ 

printf ( "Generate  MIN  request  for  which  attribute  ?  \n") ; 
at_index  =0; 

while  (at_index  <  rel_templates [rel_index] . rel_nof_attrs) 


{ 


printf ("[%d]  %20s  \n",  at_index, 

rel_templates [rel_index] . rel_attrs [at_index] .at_name) ; 
++  at_index; 

} 

prompt  ()  ; 

scanf ( "%d",  &at_index) ; 
getcharO;  /*  Read  \n  */ 

/*  Get  the  WHERE  clause  if  necessary  */ 

get_where_ clause (rel_index,  where) ; 

/*  Now  create  the  MIN  request  from  the  data  provided  */ 

strcpy (request,  BOR); 
strcat (request ,  "MIN  (“); 
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/*  Include  the  selected  attribute  in  the  request  */ 

strcat (request,  rel_templates [rel_index] . rel_attrs [at_index] .at_name) ; 

/*  Include  the  FROM  clause  In  the  request  */ 
strcat  (request,  ")  FROM  ") ; 

/*  Include  the  relation  name  in  the  request  */ 
strcat (request ,  rel_templates [rel_index] . rel_name) ; 

/*  Include  any  WHERE  clause  in  the  request  */ 
if  (where [0]  1=  '\0') 

{  /*  Include  the  WHERE  clause  in  the  request  */ 
strcat (request,  BLANK); 
strcat (request,  where); 

} 

strcat (request ,  EOR) ; 

} 

y************************************************************************y 
man_sum ( r eq ue st ) 

/*  This  procedure  creates  a  rrds  SUM  request  with  user  input  */ 

/*  GLOBAL:  tmpl_cnt,  rel_templates,  */ 

char  request!];  /*  ptr  to  a  request  buffer  */ 

{ 

int  at_index;  /*  attribute  index  in  relation  template  */ 

int  rel_index;  /*  relation  index  in  relation  template  */ 

char  where [MAK_WHERE] ;  /*  store  any  WHERE  clause  */ 

/*  Get  relation  name  for  the  request  */ 

printf ( "Generate  SUM  request  from  which  relation  ?  \n"); 
rel_index  *  get_rel ( ) ; 
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/*  Get  the  attribute  used  in  the  request  */ 

printf ( "Generate  SUM  request  for  which  attribute  ?  \n"); 
at_index  =  0; 

while  (at_index  <  rel_templates [rel_index] . rel_nof_attrs) 

if  (rel_templates [rel_index] . rel_attrs [at_index] .at_type  **  'I'  II 
rel_templates [rel_index] . rel_attrs [at_index] .at_type  ■=  * i 1 ) 

printf ( " [ %d ]  %20s  \n",  at_index, 

rel_templates [rel_index] . rel_attrs [at_index] ,at_name) ; 

} 

++  a t_ index; 

} 

prompt  ()  ; 

scanf("%d",  &at_index) ; 
getcharO;  /*  Read  \n  */ 

/*  Get  the  WHERE  clause  if  necessary  */ 

get_where_ clause (rel_index,  where) ; 

/*  Now  create  the  SUM  request  from  the  data  provided  */ 

strcpy (request,  BOR); 
strcat (request,  "SUM  ("); 

/*  Include  the  selected  attribute  in  the  request  */ 

strcat (request,  rel_templates [rel_index] . rel_attrs [at_index] .at_name) ; 

/*  Include  the  FROM  clause  in  the  request  */ 
strcat  (request,  ")  FROM  ") ; 

/*  Include  the  relation  name  in  the  request  */ 
strcat (request,  rel_templates [rel_index] .rel_name); 

/*  Include  any  WHERE  clause  in  the  request  */ 
if(where[0]  1=  '\0') 

{  /*  Include  the  WHERE  clause  in  the  request  */ 
strcat  (request,  BLANK); 
strcat (request,  where); 

} 

strcat (request ,  EOR) ; 

} 

/a*************************************************************************/ 
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mai\_count  (request) 

/*  This  procedure  creates  a  rrds  COUNT  request  with  user  input  */ 
/*  GLOBAL:  tmpl_cnt,  rel_templates  */ 


char  request  (]; 


int  rel_index; 

char  where [MAX_WHERE] ? 


/*  ptr  to  a  request  buffer  */ 


/*  relation  index  in  relation  template 
/*  store  any  WHERE  clause 


/*  Get  relation  name  for  the  request  */ 

printf ( "Generate  COUNT  request  from  which  relation  ?  \n") ; 
rel_index  =  get_rel(); 

/*  Get  the  WHERE  clause  if  necessary  */ 

get_where_clause (rel_index,  where) ; 

/*  Now  create  the  COUNT  request  from  the  data  provided  */ 

st rcpy (request,  BOR); 
strcat (request,  "COUNT"); 

/*  Include  the  FROM  clause  in  the  request  */ 

strcat  (request,  "  FROM  ")  ; 

/*  Include  the  relation  name  in  the  request  */ 

strcat (request,  rel_templates [rel_index] .rel_name) ; 

/*  Include  any  WHERE  clause  in  the  request  */ 

if  (where[0]  1=  '\0') 

{  /*  Include  the  WHERE  clause  in  the  request  */ 
strcat  (request,  BLANK); 
strcat (request,  where); 

} 

strcat (request,  EOR) ; 

/***************************************************************************/ 


mai\_delete  (request) 

/*  This  procedure  creates  a  rrds  DELETE  request  with  user  input  */ 

/*  GLOBAL:  tmpl_cnt,  rel_templates,  req_cnt,  req_buffer[]  */ 

char  request!];  /*  ptr  to  a  request  buffer  */ 

{ 

int  del_type;  /*  type  of  delete  request  */ 

int  rel_index;  /*  relation  index  in  relation  template  */ 

char  where [MAX-WHERE] ;  /*  store  any  WHERE  clause  */ 


/*  Get  relation  name  for  the  request  */ 

printf ( "Generate  DELETE  request  from  which  relation  ?  \n") ; 
rel_index  =  get_rel(); 

del_type  =  0? 

while(del_type  <=  0  I  I  del_type  >  2) 

{ 

printf ( "Please  choose  the  type  of  DELETE  request  to  be  created :\n\n") ; 

printf ("[1]  DELETE  ALL  FROM  Relation\n") ; 

printf ("[2]  DELETE  FROM  Relation  WHERE  (Specif ier) \n") ; 

prompt  () ; 

scanf("%d",  &del_type) ; 
getcharO;  /*  Read  \n  */ 

} 

strcpy (request,  BOR); 
if (del_type  ==  1) 

{ 

strcat  (request ,  "DELETE  ALL  FROM  ") ; 

strcat (request,  rel_templates [rel_index] ,rel_name) ; 

} 

if (del_type  ==  2) 

{ 

/*  Get  the  WHERE  clause  if  necessary  */ 
get_where_ clause (rel_index,  where) ; 
strcat  (request,  "DELETE  FROM  ") ; 

strcat (request,  rel_teraplates [rel_index] .rel_name) ; 

/*  Include  any  WHERE  clause  in  the  request  */ 
if  (where[0]  1=  * \0 1 ) 

{  /*  Include  the  WHERE  clause  in  the  request  */ 
strcat (request,  BLANK); 
strcat  (request,  where); 

} 

} 

strcat (request,  EOR) ; 

} 

/*************************************************************************** / 
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man_sel  ect  ( r  eq  ue  st ) 

/*  This  procedure  creates  a  rrds  SELECT  request  with  user  input  */ 
/*  GLOBAL:  tmpl_cnt,  rel_templates  */ 


char  request!]; 


{ 


int  sel_type; 

int  rel_index; 

char  where [MAX_WHERE] ; 


/*  ptr  to  a  request  buffer  */ 

/*  type  of  SELECT  request 

/*  relation  index  in  relation  template 

/*  store  any  WHERE  clause 


*/ 

*/ 

*/ 


/*  Get  relation  name  for  the  request  */ 

printf ( "Generate  SELECT  request  from  which  relation  ?  \n") ; 
rel_index  =  get_rel(); 

sel_type  =  0; 

while(sel_type  <=  0  II  sel_type  >  2) 

{ 

printf ( "Please  choose  the  type  of  SELECT  request  to  be  created :\n\n") 

printf ("[1]  SELECT  ALL  PROM  Relation  \n") ; 

printf ( " [2]  SELECT  FROM  Relation  WHERE  (Specifier)  \n") ; 

prompt  ()  ; 

scanf("%d",  &sel_type) ; 


getcharO;  /*  Read  \n  */ 


} 


strcpy (request,  BOR); 
if  ( sel_type  ==  1) 


{ 


/ 


strcat (request,  "SELECT  ALL  FROM  ") ; 
str cat (request,  rel_templates [rel_index] „rel_name); 

} 

if (sel_type  ==  2) 

{ 

/*  Get  the  WHERE  clause  if  necessary  */ 
get_where_clause (rel_index,  where) ; 
strcat  (request,  "SELECT  FROM  ") ; 

strcat  (request,  rel_templates  [rel_index]  ,rel_name) ; 

/'  Include  any  WHERE  clause  in  the  request  */ 
if  (where[0j  1=  • \0 * ) 

{  /*  Include  the  WHERE  clause  in  the  request  */ 
strcat  (request,  BLANK); 
strcat (request,  where); 

} 

} 

strcat (request,  EOR) ; 

} 

************************************************************************** 


/ 


mar\_dif  f ( request) 

/*  This  procedure  creates  a  rrds  DIFF  request  with  user  input  */ 

/*  GLOBAL:  tmpl_cnt,  rel_templates  */ 

char  request [];  /*  ptr  to  a  request  buffer  */ 

int  rel_l;  /*  index  for  first  relation  selected  */ 

int  rel_2;  /*  index  for  second  relation  selected  */ 

/*  Get  relation  name  for  the  request  */ 

printf ( "Generate  DIFF  request  from  which  relation  ?  \n"); 
rel_l:  =  get_rel(); 

/*  Get  the  second  relation  used  in  the  request  */ 

printf ( "Generate  DIFF  request  for  which  other  relation  ?  \n"); 
rel_2  =  get_rel(); 

/*  Now  create  the  DIFF  request  from  the  data  provided  */ 
strcpy (request,  BOR); 

/*  Include  the  first  relation  name  in  the  request  */ 
strcat (request,  rel_ templates Irel_l) .rel_name) ; 

/*  Include  the  DIFF  clause  */ 
strcat  (request,  "  DIFF  ") ; 

/*  Include  the  second  relation  name  in  the  request  */ 

strcat (request,  rel_templates [rel_2] .rel_name) ; 
strcat (request,  EOR) ; 

} 

/***************************************************************************/ 
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man_int sect  (request) 

/*  This  procedure  creates  a  rrds  INTSECT  request  with  user  input  */ 

/*  GLOBAL:  tmpl_cnt,  rel_templates  */ 

char  request!];  /*  ptr  to  a  request  buffer  */ 

int  rei_l;  /*  index  to  the  first  relation  selected  */ 

int  rel_2;  /*  index  to  the  second  relation  selected  */ 

/*  Get  the  first  relation  name  for  the  request  */ 

printf ( "Generate  INTSECT  request  from  which  relation  ?  \n") ; 
rel_l.  =  get_rel ( ) ; 

/*  Get  the  second  relation  name  for  the  request  */ 

printf ( "Generate  INTSECT  request  for  which  other  relation  ?  \n") ; 
rel_2  =  get_rel(); 

/*  Include  the  first  relation  name  in  the  request  */ 
strcpy (request,  BOR); 

strcat (request,  rel_templates [rel_l] .rel_name); 

/*  Include  the  INTSECT  clause  in  the  request  */ 

strcat (request,  "  INTSECT  ") ; 

/*  Include  the  second  relation  name  in  the  request  */ 

strcat (request,  rel_tem plates [rel_2] .rel_name) ; 
strcat (request,  EOR) ; 

} 

^ **  * ★ *****************************  **************************************** 


121 


a 


1 


R 


g 


1 


F 


Si 


man_join( request) 

/*  This  procedure  creates  a  rrds  JOIN  request  with  user  input  */ 
/*  GLOBAL:  tmpl_cnt,  rel_templates  */ 


char  request[]; 


{ 


int  rel_l; 
int  rel_2; 


/*  ptr  to  a  request  buffer  */ 

/*  index  to  the  first  relation  selected 
/*  index  to  the  second  relation  selected 


/*  Get  the  first  relation  name  for  the  request  */ 

printf ( "Generate  JOIN  request  from  which  relation  ?  Vi"); 
rel_l  »  get_rel () ; 

/*  Get  the  second  relation  name  for  the  request  */ 

printf ( "Generate  JOIN  request  for  which  other  relation  ?  \n"); 
rel_2  =  get_rei(); 

/*  Include  the  first  relation  name  in  the  request  */ 
strcpy (request,  BOR); 

str  cat  (request,  rel_  templates  [rel__l]  .rel_name) ; 

/*  Include  the  JOIN  clause  in  the  request  */ 
strcat (request,  "  JOIN  ") ; 

/*  Include  the  second  relation  name  in  the  request  */ 

strcat (request,  rel_templates [rel_2] .rel_name) ; 
strcat (request,  EOR) ; 

} 


*/ 

*/ 


/ 


************************************************************************** 


/ 
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man_union( request) 

/*  This  procedure  creates  a  rrds  UNION  request  with  user  input  */ 
/*  GLOBAL:  tmpl_cnt,  rel_ templates  */ 


char  request  [J; 
{ 

int  rel_l; 
int  rel_2; 


/*  ptr  to  a  request  buffer  */ 

/*  index  to  the  first  relation  selected 
/*  index  to  the  second  relation  selected 


& 


$ 


/*  Get  the  first  relation  name  for  the  request  */ 

printf ( "Generate  UNION  request  from  which  relation  ?  \n") ; 
rel__l.=  get_rel(); 


/*  Get  the  second  relation  name  for  the  request  */ 

printf ( "Generate  UNION  request  for  which  other  relation  ?  \n") ; 
rel_2  *  get_rel(); 

/*  Include  the  first  relation  name  in  the  request  */ 


strcpy (request,  BOR); 

strcat (request,  rel_teraplates [rel_l] .rel_name) ; 
/*  Include  the  UNION  clause  in  the  request  */ 


str  cat  (request,  "  UNION  ") ; 

/*  Include  the  second  relation  name  in  the  request  */ 

strcat (request,  rel_templates [rel_2] .rel_name); 
strcat (request,  EOR) ; 

} 

y***************************************************************************y 


man_insert  { request) 

/*  This  procedure  creates  a  rrds  INSERT  request  with  user  input  */ 

/*  GLOBAL:  tmpl_cnt,  rel_templates  */ 

char  request!];  /*  ptr  to  a  request  buffer  */ 

int  at_index;  /*  attribute  index  in  relation  template  */ 

int  rel_index;  /*  relation  index  in  relation  template  */ 

struct  { 

char  data [VAL_SIZE] ; 

}  input [MAX-ATTRS] ; 

/*  Get  relation  name  for  the  request  */ 

printf ( "Generate  INSERT  request  from  which  relation  ?  \n") ; 
rel_index  =  get_rel ( ) ; 

/*  Get  data  for  the  attributes  used  in  the  request  */ 
printf ( "Enter  data  for  each  attribute. \n") ; 

printf ( "NOTE:  Character  data  must  start  with  an  upper  case  letter. \n") ; 
at_index  =  0; 

while  (at_index  <  rel_templates [rel_index] . rel_nof_attrs) 

{ 

printf ("%20s  ",  rel_templates [rel_index] . rel_attrs [at_index] .at_name) 
printf ("(%c)  ",  rel_templates [rel_index] .rel_attrs [at_index] ,at_type) 
prompt  ()  ; 

gets ( input [at_index] .data) ; 

++  at_index; 

} 

/*  Now  create  the  INSERT  request  from  the  data  provided  */ 

strcpy (request,  BOR); 

str cat (request,  "INSERT  ("); 
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/*  Include  attribute  value  pairs  in  the  request  */ 
at_index  *  0? 

while (at_index  <  rel_templates [rel_index] .rel_nof_attrs) 

if(at_index  >  0) 

{ 

strcat  (request,  ",  ") ; 

} 

strcat (request,  rel_tera plates [rel_index] . rel_attrs [at_index] .at_name) ; 

strcat (request,  ":  =  ") ; 

strcat (request,  input [at_index] .data) ; 

++  at_index; 

} 

/*  Include  the  INTO  clause  in  the  request  */ 

strcat  (request,  ")  INTO  ") ; 

/*  Include  the  relation  name  in  the  request  */ 

strcat (request,  rel_templates [rel_index] .rel_name) ; 
strcat (request,  EOR) ; 

/****************************************************************************/ 
man_proj  ect  (request) 

/*  This  procedure  creates  a  rrds  PROJECT  request  with  user  input  */ 

/*  GLOBAL:  tmpl_cnt,  rel_templates  */ 


char  request  []; 

{ 

int  at_index; 


/*  ptr  to  a  request  buffer  */ 

/*  attribute  index  in  relation  template 


int  at_selected[MAX_ATTRS] ;  /*  attr  selected  in  request 


int  proj^index; 
int  rel_index; 
char  select [2]; 
char  where  [MA3L.WHERE] ; 


/*  number  of  attributes  projected 
/*  relation  index  in  relation  template 
/*  store  user's  y/n  response 
/*  store  any  WHERE  clause 


/*  Initialize  array  to  -1,  positive  values  determine  which  attr  is  used  */ 
at_index  =  0; 

while  (at_index  <  MAX_ATTRS) 

{ 

at_selected[at_index]  =  -1; 

++  at_index; 

} 

/*  Get  relation  name  for  the  request  */ 

printf ( "Generate  PROJECT  request  from  which  relation  ?  \n") ; 
rel_index  =  get_rel(); 


125 


.  4*.  J*. ’Jix' V 


/*  Get  the  attributes  used  in  the  request  */ 


printf ( "Generate  PROJECT  request  for  which  attributes  ?  \n") ; 
at_index  =  0; 

while  (at_index  <  rel_templates [rel_index] .rel  nof  attrs) 

{  "  " 

printf ( "%20s  ",  rel_ templates [rel_index] . rel_attrs [at_index] .at_name) ; 
printf ("  (y/n)\n") ; 

promptO; 
gets (select ) ; 

if  (select [0]  ==  'y'  II  select  [0]  ==  'Y') 
at_selected [at_index]  =  at_index; 

++  at_index; 

} 


/*  Get  the  WHERE  clause  if  necessary  */ 


get_where_ clause (rel_index,  where) ; 


/*  Now  create  the  PROJECT  request  from  the  data  provided  */ 


strcpy (request,  BOR); 
strcat (request,  "PROJECT  ("); 


/*  Include  any  selected  attributes  in  the  request  */ 


proj_index  =  0; 
at_index  =  0; 

while(at_index  <  rel_templates [rel_index] . rel_nof_attrs) 

if (at_selected[at_index]  >=  0) 

{ 

if (proj^index  >  0) 

{ 

strcat  (request,  ",  ") ; 

strcat (request,  rel_templates [rel_index] . rel_attrs [at_index] .at_name); 
++  proj_index; 

} 

++  at_index; 
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/*  Include  the  FROM  clause  in  the  request  */ 
strcat (request,  ")  FROM  ") ; 

/*  Include  the  relation  name  in  the  request  */ 
strcat (request,  rel_templates [rel__index]  .rel_name) ; 

/*  Include  any  WHERE  clause  in  the  request  */ 
if  (where [0]  1=  '\0') 

{  /*  Include  the  WHERE  clause  in  the  request  */ 
strcat (request,  BLANK); 
strcat (request,  where); 

} 

strcat (request,  EOR) ; 

} 

/**************************************************************************/ 
man_ update (request) 

/*  This  procedure  creates  an  rrds  UPDATE  request  with  user  input  */ 

/*  GLOBAL:  tmpl_cnt,  rel_templates  */ 

char  request!];  /*  ptr  to  a  request  buffer  */ 

{ 

int  at_index;  /*  attribute  index  in  relation  template  */ 

int  first_pair;  /*  test  for  first  attr-value  pair  */ 

int  rel_index;  /*  relation  index  in  relation  template  */ 

char  where [MAX_WHERE] ;  /*  store  any  WHERE  clause  */ 

struct  { 

char  data [VAL_SIZE] ; 

}  input [MAX_ATTRS] ; 

/*  Get  relation  name  for  the  request  */ 

printf ( "Generate  UPDATE  request  from  which  relation  ?  \n"); 
rel_index  =  get_rel ( ) ; 

/*  Get  data  for  the  attributes  used  in  the  request  */ 

printf ( "Enter  new. data  for  each  attribute  or  hit  'return'  for  no  change.  \n") 
printf ( "NOTE:  Character  data  must  start  with  an  upper  case  letter. \n") ; 
at_index  =  0; 

while  (at_index  <  rel_templates [rel_index] . rel_nof_attrs) 

printf ("%20s  ",  rel_templates [rel_index] . rel_attr s [at_index] ,at_name) ; 
printf ( " (%c)  ",  rel_templates [rel_indexj . rel_attrs [at_index] ,at_type) ; 
prompt  (); 

gets ( input [at_index] .data) ; 

++  at_index; 

} 


/*  Get  the  WHERE  clause  if  applicable  */ 
get_where_clause (rel_index,  where) ; 


/*  Now  create  the  UPDATE  request  from  the  data  provided  */ 
strcpy (request,  BOR); 
strcat (request,  "UPDATE  ("); 

/*  Include  attribute  value  pairs  in  the  request  */ 

at_index  =  0; 
first_pair  =  0; 

while (at_index  <  rel_templates [rel_index] . rel_nof_attrs) 

{ 

if ( input [at_index] .data [0]  1=  * \0  * ) 

{ 

if (f irst_pair  >  0) 

{ 

strcat  (request,  ",  ")  ; 

} 

strcat (request,  rel__templates  [rel_index] . rel_attr s [at_index] .at_name); 

strcat (request,  "  :=  ") ; 

strcat (request,  input [at_index] .data) ; 

++  first_pair; 

} 

++  at_index; 

} 

/*  Include  the  IN  clause  in  the  request  */ 

strcat  (request,  ")  IN  ") ; 

/*  Include  the  relation  name  in  the  request  */ 

strcat (request,  rel_templates [rel_index] .rel_name) ; 

/*  Include  any  WHERE  clause  in  the  request  */ 

if(where[0]  1=  1 \0  * ) 

{ 

strcat (request,  BLANK); 
strcat (request,  where); 

} 

strcat (request,  EOR) ; 

} 

/**************************************************************************/ 
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edi  t_r  eq_f  il  e  ( ) 

/*  This  procedure  allows  a  user  to  edit  a  specific  rrds  request  file.  */ 
/*  A  menu  of  editing  options  is  displayed  and  executed.  Changes  can  */ 
/*  be  saved  if  specified  by  the  user  */ 

/*  GLOBAL:  req_cnt,  req_buffer[]  */ 

{ 

int  index;  /*  counter  V 
int  selection; 
char  save [2]; 

printf ( "Enter  the  name  of  a  request  file  to  be  edited  \n") ; 
prompt  () ; 
gets(file_name) ; 

file_desc  =  fopen(file_name,  "r"); 
while  (file_desc  ==  NULL) 

{ 

printf ( "ERROR:  Cannot  open  file  %s  \n",  file_name) ; 
printf ( "Enter  a  valid  file  name  or  hit  'return'  key  \n"); 
prompt  () ; 
gets(file_name) ; 
if  (f ile_name [0]  *■  *\0') 
return; 

file_desc  ■  fopen(f ile_name,  "r"); 

} 

req_cnt  =  0 ; 

while (f gets (req_buf fer lreq_cnt] .request,  REQ_LENGTH,  file_desc)  1*  NULL) 

{ 

/*  Remove  line  feed  character  from  request  */ 

index  =*  strindex (&req_buf fer  [req_cnt]  . request  [0]  ,  "\n")  ; 

if  (index  >»  0) 

{ 

req_buf fer [req_cnt] . request [index]  =  '\0'; 

++  req_cnt; 

} 

f  close  (file_de sc) ; 


selection  =  1; 

while  (selection  1=  QUIT) 

{ 

printf ( "Enter  type  of  editing  to  be  performed:  \n"); 

printf  ( "  [1]  DISPLAY  Requests  \n"); 

printf  ("[2]  DELETE  Requests  \n") ; 

printf ("[3]  ADD  Requests  \n"); 

printf ("[4]  MODIFY  Requests  \n"); 

printf (*[%d]  QUIT  Editor  \n",QUIT); 

prompt  ()  ; 

scanf("%d",  Sselection) ; 
getcharO;  /*  Read  \n  */ 
switch (selection) 

{ 

case  1:  display_req  ( )  ; 
break; 

case  2:  delete_req ( ) ; 
break; 

case  3?  add_req(); 
break; 

case  4i  modify_req  ( )  ; 
break; 

case  QUIT:  break; 

default:  printf  ( "INVALID  SELECTION  %d  \n",  selection); 

} 

} 

printf ( "SAVE  all  changes  ?  \n"); 
prompt  ()  ; 
gets(save) ; 

if  (save[0]  ==  'y'  II  save[0]  ==  ' Y * ) 

{/*  save  all  changes  */ 
file_desc  =  fopen(file_name,  "w"); 
index  =  0; 

while  (  index  <  req_cnt) 

{ 

fprintf (file_desc,  "%s\n"f  req_buffer [index] . request) ; 

++  index; 

} 

printf ( "Requests  saved  in  %s.  \n",  file_name) ; 

} 

f close (file_de sc) ; 

} 

/********************************************************************' 


*1] 

!*] 


■!rl 


display_req() 

/*  This  procedure  allows  a  user  to  view  all  requests  or  selected  requests  */ 

/*  in  a  file.  Requests  are  displayed  5  at  a  time  when  all  requests  must  */ 

/*  be  viewed.  */ 

/*  GLOBAL:  req_cnt,  req_buffer[]  */ 

{ 

int  count;  /*  count  up  to  5  requests  then  reset  */ 

char  mode[2];  /*  a/s  to  display  all  or  specific  requests  */ 

int  req_index;  /*  index  to  req_buffer  */ 

int  total_count;  /*  total  number  of  requests  displayed  */ 

char  select [2];  /*  display  request  specified  by  user  */ 

mode[0]  =  '0'; 

while  (mode[0]  1=  'q'  &&  mode[0]  1=  'Q * ) 

{ 

printf ( "Enter  a/s/q  to  display  all,  specific,  or  quit.\n"); 
prompt  ()  ; 
gets (mode) ; 

if (mode [0]  ==  'a'  II  mode[0]  ==  'A') 

{ 

total__count  =  0; 
select  [0]  =  '0'; 

while (select [0]  1=  'q'  &&  select [0]  1=  ' Q ' ) 

{ 

count  =  0; 

while (count  <  5  &&  total_count  <  req_cnt) 

{ 

printf ("[%d]  ",  total_count) ; 

printf ( "%s\n",  req_buf f er [total_count] .request); 

++  count; 

++  total_count; 

} 

printf ("Enter  any  key  to  continue  or  'q'  to  quit.\n") ; 
prompt  ()  ; 
gets(select) ; 

} 

} 

else  if(mode[0]  ==  * *  II  raode[0]  ==  'S') 

{ 

printf ( "Enter  the  index  of  request  to  display  (0  -  %d) ,\n", 
(req_cnt  -  1) ) ; 
prompt  ()  ; 

scanf("%d",  &req_index) ; 
getcharO;  /*  Read  '  \n*  */ 
if(req_index  >=  0  &&  req_index  <  req_cnt) 

printf ("[%d]  ",  req_index) ; 

printf ( "%s\n",  req_buf f er [req_index] .request) ; 

} 

else  if(req_index  <  0  ||  req_index  >=  req_cnt) 
printf  (  "INVALID  INDEX  \n")  f 


delete_req() 

/*  This  procedure  allows  a  user  to  delete  requests  from  a  file.  */ 
/*  The  user  is  prompted  for  the  request  to  be  deleted.  */ 
/*  GLOBAL:  req_cnt,  req_buffer[]  */ 


int  index; 
char  mode [2]; 
int  next; 
int  select; 
char  y_n[2] ; 


/*  index  counter  for  request  array  */ 

/*  quit  or  continue  */ 

/*  select  +1  */ 

/*  location  of  request  to  be  deleted  */ 

/*  user's  y/n  response  to  delete 


index  =  0; 

while (index  <  req_cnt) 

{ 

printf("[%d]  %s\n",  index,  req_buffer [index] . request) ; 

++  index; 

} 

mode[0]  =  '0'; 

while(mode [0]  1=  'n'  &&  mode[0]  i=  'N') 

{ 

select  =  -1; 

while (select  <  0  I  I  select  >=  req_cnt) 

{ 

printf ( "Enter  position  of  request  to  be  deleted  (0  -  %d) .\n", 
(req_cnt  -  1) ) ; 
prompt  ()  ; 

scanf("%d",  Sselect); 
getcharO;  /*  Read  \n  */ 

} 

printf ( "%s\n",  req_buf fer [select] . request) ; 
printf ( "DELETE  this  request  ?  \n"); 
prompt  ()  ; 
gets(y_n) ; 

if(y_n[0]  ==  'y'  II  y_n[0]  ==  'Y') 

next  =  select  +1; 
while  (next  <  req_cnt) 

{ 

strcpy (req_buf fer [ (next  -  1)]. request, 
req_buf f er [next] . request) ; 

++  next; 

} 

—  req_cnt ; 

} 

printf ( "Delete  another  request  ?  (y/n).  \n"); 
prompt  ()  ; 
gets (mode) ; 


add_req ( ) 

/*  This  procedure  allows  the 
at  a  specific  location  in 
displayed  and  created. 

GLOBAL :  req_cnt,  req_buffer[] 


/* 

/* 

/* 

{ 

int 

int 

int 

int 


user  to  insert  specific 
a  request  file.  A  menu 


type  of  rrds  requests 
of  request  types  is 


V 

V 

V 

V 


index; 

next; 

position; 

select; 


/* 

/* 

/* 

/* 


index  into  request  character  array  */ 
after  adjusting  req_buffer,  next  =  insert 
actual  position  to  insert  into  req_buffer 
indicates  request  type  to  be  inserted 


position  V 

*/ 

V 


of 

request 

to  be 

inserted. 

\n") 

• 

f 

[5] 

INSERT 

[9] 

MIN 

[13] 

UNION  \n") ; 

[6] 

INTSECT 

[10] 

PROJECT 

[14] 

UPDATE  \n")  ; 

[7] 

JOIN 

[11] 

SELECT 

[15] 

ADHOC/ERROR\n") 

[8] 

MAX 

[12] 

SUM 

[%d] 

QUIT  \n",QUIT); 

position  >  req_cnt) 


prompt  ()  ; 
scanf ("%d",  fcposition); 
getcharO;  /*  Read  \n  */ 

} 

/*  Make  room  in  req_buffer  for  the  next  new  request.  */ 

next  =  req_cnt; 

while  (next  >  position) 


{ 


} 


strcpy (req_buf fer [next] .request, 

req_buf f er [ (next  -  1) ] .request) ; 
—  next; 


select  =  1; 

if  ( r eq_cnt  >=  MAX_REQ) 

{ 

printf ( "WARNING :  This  file  contains  the  maximum  number  of  requests. \n ") ; 
return; 

} 

while  (select  1=  QUIT  &&  req_cnt  <  MAX-REQ) 

{ 

printf ( "Select  the  ty 
printf  ("[1]  AVERAGE 
printf ("[2]  COUNT 
printf ("[3]  DELETE 
printf ("[4]  DIFF 
prompt  () ; 

scanf ("%d",  fcselect); 
getcharO;  /*  Read  \n  */ 
if (select  1=  QUIT) 

{ 

position  =  -1; 
while(position  <  0  I  I 
{ 

printf  ( "Enter  file  position  for  request  insertion  (0  -  %d)  An", 
req_cnt) ; 


rrmr 
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switch  (select) 


case  1:  man_average (req_buf fer [position] . request) ; 
++  req_cnt; 
break; 

case  2s  man_count(req_buffer [position] .request) ; 

++  req_cnt; 
break; 

case  3:  man^delete (req_buffer [position] . request ) ; 

++  req_cnt; 
break; 

case  4s  man_diff (req_buffer [position] . request) ; 

++  req_cnt; 
break; 

case  5:  man_insert(req_buf fer [position] . request) ; 

++  req_cnt; 
break; 

case  6:  man_intsect (req_buf fer [position] . request) ; 
++  req_cnt; 
break; 

case  7:  man_join(req_buf fer [position] . request) ; 

++  req_cnt ; 
break; 

case  8:  man_max (req_buf fer [position] .request) ; 

++  req_cnt; 
break; 

case  9«  man_min(req_buf fer [position] . request) ; 

++  req_cnt; 
break; 

case  10:  man_proj ect (req_buf fer [position] . request) ; 
++  req_cnt; 
break; 

case  11:  man_sel ect (req_buf fer [position] . request) ; 

++  req_cnt; 
break; 

case  12:  man_sum(req_buf fer [position] .request) ; 

++  req_cnt ; 
break; 

case  13:  man_union(req_buf fer [position] . request) ; 

++  req_cnt; 
break; 

case  14:  man_update (req_buf fer [position] . request) ; 

++  req_cnt; 
break; 

case  15:  man_adhoc (req_buf fer [position] . request ) ; 

++  req_cnt; 
break; 

case  QUIT:  break; 

default:  printf  ( "INVALID  SELECTION:  %d  \n",  select); 
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if (select  >  0  &&  select  <=  15) 

printf ( "\n%s\n\n",  req_buf f er [position] . request) ; 
if  ( req_cnt  ==  MA3L.REQ) 

printf ( "WARNING :  Maximum  number  of  requests  now  exist  in  file.\n"); 
}  /*  end  of  while  select  1=  quit  */ 
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to  modify  specific  requests  from  a  file, 
character  string  to  be  modified  and  the 

[] 

/*  position  counter  in  character  array 
/*  result  of  strindex  function 
'*  index  into  character  array 

exclusive  upper  limit  of  a  string  index 
index  for  new_string  array 
quit  or  continue  processing 
,  length  of  newest ring 
/*  length  of  old  string 
/*  position  of  request  in  req_buffer 
/*  shift  boundary  limit 
/*  number  of  left  shift  positions 
/*  number  of  right  shift  positions 
/*  user's  response 


/* 

/* 

/* 

/* 

/* 
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modify_req  ( ) 

/*  This  procedure  allows  a  user 
/*  The  user  is  prompted  for  the 
/*  replacement  string. 

/*  GLOBAL:  req_cnt,  req_buffer 

{ 

int  count; 
int  find; 
int  index; 
int  max; 
int  mod_index; 
char  mode [2]; 
int  new_length; 
int  old_length; 
int  position; 
int  end_shift; 
int  l_shift; 
int  r_shift; 
char  y_n[2] ; 

char  old  stringfREO  LENGTH! : 
char  new  stringfREO  LENGTH! : 

mode[0]  =  '0'; 

while(mode  [0]  1=  'n'  &&  mode[0]  1=  'N') 

{ 

position  =  -1 ; 

while (position  <  0  I  I  position  >=  req_cnt) 

printf ( "Enter  position  of  request  to  be  modified  (0  -  %d) An", 
(req_cnt  -  1) ) ; 
prompt  ()  ; 

scanf("%d",  sposition) ; 
getcharO;  /*  Read  \n  */ 

} 

printf ( "%s\n",  req_buf f er [position] . request) ; 
printf ( "Modify  this  request  ?  (y/n).\n"); 

prompt  () ; 
gets(y_n) ; 

if (y_n [0]  ==  'y '  II  y_n [ 0 ]  -=  '¥') 

{ 

printf ( "Enter  the  string  to  be  changed.  \n"); 
prompt  ()  ; 
gets(old_string) ; 

printf ( "Enter  the  new; string.  \n"); 
prompt  ()  ; 
gets(new^string) ; 

find  *  strindex (&req_buf f er [position] . request [0] ,  &old_string [0] ) ; 
if  (find  >=  0) 

{ 

old_length  =  strlen(old_string) ; 
new^length  =  strlen( newest ring) ; 


if  (new^length  ==  old_length) 

{ 

index  ■  find; 
mocLindex  =  0; 
max  *  find  +  new_length; 
while  (index  <  max) 

{ 

req_buf f er [position] . request [index]  = 
new_string [mocLindex] ; 

++  index; 

++  mod_index; 

} 

} 

else  if  (new_length  <  old_length) 

f 

l 

/*  fill  with  new. string  and  left  shift  the  request  */ 

index  =  find; 

mod_index  =  0 ; 

max  *  find  +  new_length; 

while (index  <  max) 

{ 

req_buffer [position] .request [index]  = 
new_string [mod_index] ; 

++  index; 

++  mod_index; 

} 

l_shif t  =  old_length  -  new_length; 

max  *  strlen(req_buffer [position] .request) ; 

max  =  max  -  l_shift; 

while (index  <=  max) 

{ 

req_buffer [position] . request [index]  * 

req_buffer [position] . request [( index  +  l_shift)] 
++  index; 

} 
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else  if  (new„_length  >  old_length) 

{ 

/*  right  shift  the  request  then  fill  it  with  new  data  */ 
r_shift  =  new_length  -  old_length; 
max  =  strlen(req_buffer [position] . request) ; 
max  =*  max  +  r_shift? 
if  (max  >  REQ-LENGTH) 
max  =  REQ_LENGTH  ; 

end_shift  =  find  +  old-length  +  r_ shift; 
count  ®  max; 

while (count  >«  end_shift) 

{ 

req_ buffer [position] .request [count]  = 

req_buffer [position] . request [ (count  -  r_shift)]; 
—  count; 

} 

/*  Now  fill  request  with  new  string  */ 

index  =  find; 

mod_index  =  0; 

max  =  find  +  new-length; 

while  (index  <  max) 

{ 

req_buffer [position] .request [index]  = 
new— string [mod— index] ; 

++  index; 

++  mod-index; 

} 

} 

} 

else  if  (find  <  0) 

printf ( "String  not  found:  %s\n",  old_ string) ; 

printf ( "%s\n",  req_buffer [position] .request) ; 
printf ( "Modify  another  request  ?  (y/n) .  \n"); 
prompt  ()  ; 
gets (mode) ; 

} 


^ *************************************************************************** 
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run_req_file() 

/*  This  procedure  allows  a  user  to  execute  requests. 

/*  The  requests  are  passed  to  the  Controller  by  the  socket  facility  of  VAX. 
/*  The  channel  1 busl*  is  created  and  used  to  pass  either  all  the  requests 
/*  or  selected  requests  to  the  Controller.  The  results  can  be  displayed  on 
/*  a  screen  and  stored  into  a  specific  output  file. 

/*  GLOBAL:  active_bus,  req_cnt,  req_buf f er  [] ,  output 


{ 

char  mode [2]; 
int  index; 

if  (active_bus  ==  0) 

t 

connect_bus() ; 
active_bus  =  1; 

} 

printf ("Enter  name  of  request  file  to  be  used  for  processing  requests.  \n"); 
prompt() ; 
gets(file_name) ; 

file_desc  =  fopen(f ile_name,  "r"); 
while  (file_desc  ==  NULL) 

printf ( "ERROR:  Cannot  open  file  %s  \n",  file_name) ; 
printf ( "Enter  valid  file  name  or  hit  'RETURN1  key  to  exit  \n") ; 
prompt!) ; 
gets(file_name) ; 
if  (file_name  [0]  ==»  '\n') 
return; 

file_desc  =  fopen(file_name,  "r"); 

} 

req_cnt  *  0; 

while  (fgets(req_buf fer  [req_cnt] . request,  REQ_LENGTHf  file_desc)  1=  NULL) 

{ 

/*  Remove  line  feed  character  from  the  request  */ 
index  =  strindex(&req_buf fer [req_cnt] .request [0] ,  "\n") ; 
if  (index  >=  0) 

{ 

req_buffer [req_cnt] .request [index]  =  '\0'; 

} 

++  req_cnt; 

} 

f  close  (file_de sc) ; 
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output  [0]  =  '0'; 

while  (output [0]  1=  's*  &&  output [0]  1=  1 f '  &&  output [0]  1=  'b') 

{  » 
printf ( "Enter  s/f/b  to  direct  output  to  a  screen,  file,  or  both.\n"); 
prompt  {)  7 
yets (output ) ; 

} 

if  (output [0]  ==  'f'  II  output [0]  ==  ' b 1 ) 

{ 

printf  ( "Enter  name  of  output  file.\n"); 
prompt  () ; 
gets(out_file) ; 

out_desc  =  fopen(out_f ile,  "w"); 
while (out_desc  ««  NULL) 

(  * 

printf ( "ERROR:  Cannot  open  output  file  %s  \n",  out_file);  ? 

printf ( "Enter  name  of  output  file.  \n"); 
promptO; 
gets(out_f ile) ; 

out_desc  =  fopen(out_f ile,  "w")?  & 

}  * 

} 

mode  10]  *  '0'; 

while(mode [0]  1=  'g'  &&  mode[0]  1=  *Q * ) 

printf ( "Enter  a/s/q  to  run  all  requests,  selected  requests,  or  quit\n"); 
prompt  ()  ;  * 

gets (mode); 

if  (mode[0]  ==  'a'  II  mode[0]  ==  'A') 
run_all() ; 

else  if  (mode[0]  ■■  's'  I  I  mode[0]  ==  ’S') 
run_selected() ; 

} 

if  (output  [0]  ==  'f'  II  output  [0]  «  'b') 
f close (out_desc) ; 
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run_all  () 

/*  This  procedure  allows  all  rrds  requests  in  the  req_buffer  to  be  */ 
/*  processed  by  the  Controller.  Requests  are  sent  via  channel  'busl'.  */ 
/*  GLOBAL:  req_cnt,  req_buffer,  output,  channel  */ 

{ 

int  index;  /*  index  into  req_buffer  */ 

int  err;  /*  error  code  from  send  and  recv  */ 


index  =  0; 

while (index  <  req_cnt) 

{ 

if (output [0]  ==  'b'  II  output [0]  ==  's') 

{ 

printf ( "Sending; \n") ; 

printf ( "%s\n",  req_buf fer [index] .request) ; 

} 

err  =  send(channel,  req..buf fer  [index]  .request,  REQ_LENGTH,  0)  ; 
if  (err  <  0) 

{ 

printf ( "ERROR:  send  commanu  failed. \n") ; 
return; 

} 

err  *  recv (channel,  reply,  RES_SIZE,  0) ; 
if  (err  <  0) 

{ 

printf ( "ERROR:  recv  command  failed. \n"); 
return; 

} 

if ( reply [0]  —  CONTINUE [0]) 

{ 

if  (output [0]  ==  'b'  ||  output [0]  ==  'f') 

{ 

f printf (out_desc,  "\n%s\n"/  "SENDING:  ") ; 
f printf (out_de sc,  "%s\n",  req_buf fer [index] .request) ; 
f printf (out_desc,  "%s\n",  "RESULT:  ") ; 

} 

while (reply [0]  1=  TERMINATE [0] ) 

if (output [0]  ==  'b'  II  output [0]  ==  'f') 
fprintf (out_desc,  "%s\n",  reply); 
if (output [0]  ==  'b'  ||  output [0]  ==  's') 
printf ("%s\n",  reply); 
recv(channel,  reply,  RES_SIZE,  0); 

} 
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else  /*  result  has  no  continuation  symbol  */ 

{ 

if  (output[0]  ==  'b'  II  output[0]  ==  's') 
printf ( "%s\n",  reply); 
if  {output  1 0  J  ==  'b'  !l  output [0]  ==  'f') 

f printf  (out_desc,  "\n%s\n",  "SENDING:  ") ; 
fprintf (out_desc,  *%s\n",  req_buffer [index] . request) ; 
f printf (out_desc,  "%s\n",  "RESULT:  ") ; 
fprintf (out_desc,  "%s\n",  reply); 


++  index; 


g)  /***************************************************************************/ 
run_ select ed( ) 

S  /*  This  procedure  enables  users  to  run  specific  requests  in  the  */ 

»  /*  req_buffer  or  interactively  create  and  run  requests.  */ 

/*  GLOBAL:  req_cnt,  req_tuf f er [] ,  output,  channel  */ 

int  err;  /*  error  code  from  send  and  recv  */ 

int  mode;  /*  quit  or  continue  */ 

Bint  position;  /*  buffer  position  of  selected  request*/ 

char  select [2];  /*  s/t,  selected  or  terminal  input  */ 

int  type;  /*  type  of  request  to  be  created  &  run*/ 

char  y_n[2];  /*  user's  response  */ 

$j|  char  t_request  [REQ_LENGTH] ;  /*  request  buffer  for  terminal  input*/ 

m  display_req() ; 
jjn  printf  ( "Enter  \n"); 

printf ("  [f ] :  to  run  a  request  from  the  file  already  selected\n") ; 

printf  ("  [t] :  to  run  a  request  from  the  terminal \n") ; 

printf  ("  [q]  :  toquit\n"); 

*  promptO; 

gets (select) ; 

H  while  (select[0]  1=  'q'  &&  select[0]  1=  ' Q • ) 

if(select[0]  ==  'f'  I  I  select[0J  ==  'F') 

qj  { 

position  =  -1; 

while (position  <  0  II  position  >*  req_cnt) 


printf ( "Enter  position  of  request  to  be  processed  (0 
(req_cnt  -  1)); 
prompt  ()  ; 

scanf("%d",  &position) ; 
getcharO;  /*  Read  \n  */ 

} 

printf ( "%s\n",  req_buf f er [position] . request) ; 
printf  ("Run  this  request  ?  (y/n)  \n"); 

prompt  () ; 
gets (y_n) ; 
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if(y_n[0]  *==  'y'  II  y_n[0]  ==  'Y') 

{ 

if (output [01  ==  'b'  II  output [0]  ==  ’s') 

{ 

printf ( "Sending :\n") ; 

printf ( "%s\n",  req_buf f er [position] . request) ; 

err  =  send (channel ,  req_buffer [position] . request,  REQ_LENGTH,  0) 
if(err  <  0) 

{ 

printf ( "ERROR:  send  command  f ailed. \n"); 
return; 

} 

err  =  recv (channel ,  reply,  RES_SIZE,  0); 
if (err  <  0) 

{ 

printf ( "ERROR:  recv  command  failed.  \n"); 
return; 

} 

if ( reply [0]  --  CONTINUE [0]) 

{ 

if (output [0]  ==  'b'  ||  output [0]  ==  * f * ) 

{ 

f printf (out_desc,  "\n%s\n",  "SENDING:  ") ; 
f printf (out_desc,  "%s\n", req_buf f er [position] . request) ; 
f printf (out_desc,  "%s\n",  "RESULT:  ") ; 

} 

while (reply [0]  1*  TERMINATE [0] ) 

if (output [0]  ==  'b'  ||  output [0]  ==  'f') 
fprintf (out_desc,  "%s\n",  reply); 
if (output [0]  ==  'b'  ||  output [0]  ==  's') 
printf { "%s\n",  reply); 
recv(channel,  reply,  RES_SIZE,  0); 

} 

else  /*  result  has  no  continuation  symbol  */ 

{ 

if (output [0]  ==  'b'  II  output [0]  ==  ’s') 
printf ( "%s\n",  reply); 
if (output [0]  ==  'b'  II  output f0]  -=  't’) 

{ 

fprintf (out_desc,  "\n%s\n",  "SENDING:"); 
fprintf (out_desc,  "%s\n",  req_buffer [position] . request) ; 
fprintf (out_desc,  "%s\n",  "RESULT:"); 
fprintf (out_desc,  "%s\n",  reply); 

} 

} 


y_n [ 0 ]  »=  'Y') 


}  /*  end  if  (select  =  file)  */ 


•  t *  ||  select [0] 


if (select  10]  == 

{ 


==  'T') 


type  «  -1; 

while(type  <  0  I  I  type  >  15) 


printf { "Which  request  do  you  want  to  run  ?\n"); 

printf ( " [1]  AVERAGE  (5]  INSERT  [9]  MIN  [13]  UNION  \n") ; 

printf ("[2]  COUNT  [6]  INTSECT  [10]  PROJECT  [14]  UPDATE  \n"); 

printf ("[3]  DELETE  [7]  JOIN  [11]  SELECT  [15]  ADHOC/ERROR\n") ; 

printf ("[4]  DIFF  [8]  MAX  [12]  SUM  [%d]  QUIT  \n",QUIT)  ; 


prompt  () ; 

scanf("%d",  &type); 
getcharO;  /*  Read  \n  */ 

} 

switch  (type) 

{ 


case 

1: 

man_average (t_request) ; 
break; 

case 

2c 

man_count (t_request) ; 
break; 

case 

3c 

man_delete (t_request) ; 
break; 

case 

4S 

man_dif f (t_request) ; 
break; 

case 

5: 

man_insert (t_request) ; 
break; 

case 

6: 

man_intsect (t_request) ; 
break; 

case 

7  s 

man_join(t_request) ; 
break; 

case 

8: 

man_max (t_request) ; 
break; 

case 

9: 

man_min(t_request) ; 
break; 

case 

10: 

man_project  (t_request) ; 
break; 

case 

11: 

man_select  (t_request) ; 
break; 

case 

12: 

man_sum(t_request) ; 
break; 

case 

13: 

man_union(t_request) ; 
break; 

case 

14: 

man_update (t_request ) ; 
break; 

case 

15: 

man_adhoc(t_request) ; 
break; 

case 

QUIT:  break; 

defaults  printf  ( "INVALID  SELECTION:  %d  \n"f  type); 

} 

if (type  <  16  &&  type  1=  QUIT) 
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if (output [0]  ==  'b'  li  output [0]  ==  's') 

{ 

printf ( "SENDING :\n") ; 
printf ( "%s\n",  t_request) ; 

} 

err  =  send(channel,  t_request,  REQ  LENGTH,  0); 
if(err  <  0) 

{ 

printf ( "ERROR:  send  command  f ailed. \n"); 
return; 

} 

err  »  recv (channel ,  reply,  RES_SIZE,  0); 
if(err  <  0) 

{ 

printf ( "ERROR:  recv  command  f ailed. \n"); 
return; 

} 

if ( reply [0]  ==  CONTINUE [0]) 

{ 

if (output [0]  ==  'b1  li  output [0]  ==  'f') 

{ 

fprintf (out_desc,  "\n%s\n",  "SENDING:"); 
fprintf (out_desc,  "%s\n",  t_request); 
fprintf (out_desc,  "%s\n",  "RESULT:  ") ; 

} 

while( reply  [0]  i=  TERMINATED] ) 

{ 

if (output [0]  ==  'b'  II  output [0]  ==  ' f ' ) 
fprintf (out_desc,  "%s\n",  reply); 
if (output [0]  ==  'b'  II  output [0]  ==  's') 
printf ( "%s\n",  reply); 
recv (channel,  reply,  RES_SIZE,  0); 


else  /*  result  has  no  continuation  symbol  */ 
t 

if (output [0]  ==  'b'  ||  output [0]  ==  's') 
printf ( "%s\n",  reply); 
if(output[0]  ==  'b1  ||  output[0]  ==  'f1) 

{ 

fprintf (out_desc,  "\n%s\n",  "SENDING:"); 
fprintf (out_desc,  "%s\n",  t_request) ; 
fprintf (out_desc,  "%s\n",  "RESULT:"); 
fprintf (out_desc,  "%s\n",  reply); 

} 

} 

} 

}  /*  end  if  (select  =  terminal)  */ 
printf ( "Enter  \n") ; 


printf  ("  [f]  :  to  run  a  request  from  the  file  already  selected\n")  ; 
printf ("  [ t ] :  to  run  a  request  from  the  terminal \n ") ; 

printf("  [q]  :  toquit\n"); 

£l  prompt  (); 

gets (select ) ; 

jn  }/*  end  while  (more  requests  to  run)  */ 


,'**************************************************************************** 
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connect_bus ( )  /*  creates  a  channel  'busl'  for  host<->controller  messages  */ 

{ 

int  err; 


/******************  create  the  channel  for  communication  ***************/ 


/*  Get  a  UNIX  socket  channel  */ 


err  =  (make_channel  =  socket (AF_UNIX, SOCK_STREAM, 0) ) ; 
if  (err  <=  0) 


printf ( "ERROR:  socket  command  failed\n"); 
exit  ()  ; 


/*  Bind  the  channel  with  the  file  "busl"  */ 


err  =  bind (make_ channel, &soc_name, 6) ; 
if  (err  <  0) 


printf ( "ERROR:  bind  command  failed\n"); 

printf ( "Enter  ' rm  busl ' ,  then  'host. out'  to  restart\n") ; 
exit ()  ; 


/*  Wait  &  Listen  for  Controller  to  connect  to  the  channel  */ 


printf ( "Please  login  and  invoke  'rrds.out'  on  another  terminal . \n ") ; 
err  =  listen (make_channel , 1) ; 
if  (err  <  0) 

{ 

printf ( "ERROR:  listen  command  failed\n") ; 
exit  ()  ; 


/*  Get  location  ID  of  Controller  process  */ 


err  =  (channel  =  accept (make_channel , 0 ,0) ) ; 
if  (err  <  0) 


printf ( "ERROR:  accept  command  failed\n") 
exit ()  ; 


» 


disconnect_bus ( ) 


send  (channel,  TERMINATE,  2,  0) ; 
close (channel) ; 
uni  ink ( "busl") ; 


'**************************************************************************** 


gendigits( result,  lower_b,  upper_b) 

/*  This  procedure  creates  a  string  of  digits  based  on  a  bounded  range  */ 


char  *resnlt,  *lower_b,  *upper_b; 

{ 

int  diff?  /*  difference  between  the  bounds  */ 

int  digit;  /*  integer  ->  string  digit  */ 

int  fwd_index;  /*  forward  index  of  string  */ 

int  rev^index;  /*  reverse  index  of  a  string  */ 

int  high;  /♦  integer  value  of  upper  bound  string  */ 

int  low;  /*  integer  value  of  lower  bound  string  */ 

int  genval;  /*  randomly  generated  integer  value  */ 


low  =  atoi (lower_b) ; 

high  =  atoi (upper_b) ; 

diff  =  high  -  low; 

genval  =  low  +  random (diff ) ; 

/*  convert  genval  number  to  a  string,  store  in  result  */ 

rev_index  =  (VAL_SIZE  -  1); 

♦(result  +  rev_index)  =  '\0'; 

—  rev^index; 
if (genval  >  0) 

{ 

while (genval  >  0  &&  rev_index  >=  0) 

{ 

digit  *  genval  %  10; 

♦(result  +  rev_index)  *  digit  +  *0'; 
genval  =  genval  /  10; 

—  rev^index; 

} 

} 

else  if  (genval  ==  0) 

{ 

♦(result  +  rev_index)  =  '0*; 

—  rev^.index ; 

} 

else  if  (genval  <  0) 

{ 

genval  =  genval  *  -1; 

while (genval  >  0  &&  rev^index  >=  0) 

{ 

digit  =  genval  %,  10; 

♦(result  +  rev_index)  =  digit  +  '0'; 
genval  =  genval  /  10; 

—  rev_index; 

} 

♦(result  +  rev^index)  = 

—  rev^index; 

} 


/*  fill  any  remaining  space  with  blanks  */ 


while (rev_ index  >=  0) 

{ 

♦(result  +  rev^index)  =  BLANK [0] ; 
—  rev^index; 

} 


/*  strip  off  leading  blanks  */ 

while(  *  (result)  ==  BLANK  [0]) 

{ 

f or (fwd_index  =  0;  fwd_index  <  (VAL_SIZE  -1);  ++  fwd_index) 

♦(result  +  fwd_index)  =  ‘(result  +  fwd_index  +  1); 

} 

} 

/**************************************************************************/ 
get_rel()  /*  returns  index  to  relation  that  is  selected  by  the  user  */ 
int  index; 

for (index  =  0;  index  <  tmpl_cnt;  ++  index) 

printf("[%d]  %s\n",  index,  rel_templates (index] . rel_name) ; 
prompt  ()  ; 

scanf("%d",  Sindex)  ; 
getcharO;  /*  Read  1  \n'  */ 
return (index) ; 

} 


'Ik***************************************************************************, 


get_where_ clause (rel_index,  clause) 
int  rel_index; 
char  claused; 

{ 

char  more_conj [2] ;  /*  Store  response  for  another  conjunction  */ 


char  more_pred [2] ;  /*  Store  response  for  another  predicate  */ 
char  value [VAL_SIZE] ;  /*  Store  predicate  value  */ 
int  at_index;  /*  attribute  index  for  a  relation  */ 
int  conj_cnt;  /*  number  of  conjunctions  */ 
int  op_index;  /*  index  for  relational  operator  type  */ 
int  pred_cnt;  /*  number  of  predicates  */ 


clause  [0]  =  '\0'; 

printf("Do  you  want  to  include  a  WHERE  clause  ?  (y/n)\n“); 

prompt  ()  ; 

gets (more_conj ) ; 

if  (more_conj [ 0 ]  ==  'n'  II  more_conj[0]  ==  ' N * ) 
return; 

strcat (clause,  "WHERE  ("); 
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conj_cnt  =  0; 

while (more_conj [0]  ==  'y'  li  more_conj [ 0]  ==  'Y') 

{ 

if  (conj_cnt  >  0) 

strcat (clause,  "  OR  ") ; 
more_pred[0]  *  'y'; 
pred_cnt  =  0; 
strcat (clause, 

while (more_pred[0]  ==  'y'  ||  more_pred[0]  ==  * Y * ) 

{ 

if  (pred_cnt  >  0) 

strcat (clause,  "  AND  ") ; 

printf ( "Which  attribute  do  you  want  in  the  predicate  ?\n"); 

for  (at_index  =  0;  at_index  <  rel_tem plates [rel_index] . rel_nof_attrs; 

++  at_index) 

printf ("[%d]  %s  \n",  at_index, 

rel_templates [rel_index] . rel_attrs [at_index] .at_name) ; 

prompt  ()  ; 

scanf("%d",  &at_index); 
getcharO;  /*  Read  '  \n'  */ 

printf ( "Which  relational  operator  do  you  want  in  the  predicate  ?\n"); 
for  (op_index  =0;  op_index  <  6;  ++  op_index) 

printf ("[%d]  %s  \n",  op_index,  REL [op_index] .OP) ; 
prompt  ()  ; 

scanf("%d",  &op_index) ; 

getcharO;  /*  READ  '\n'  */ 

printf  ( "Enter  a  value  for  the  predicated") ; 

prompt  ()  ; 

gets (value) ; 

/***  Now  create  the  predicate  expression  ***/ 

strcat (clause,  rel_templates [rel_index] . rel_attrs [at_index] .at_name) ; 

strcat (clause,  BLANK); 

strcat (clause,  REL [op_index] .OP) ; 

strcat (clause,  BLANK); 

strcat (clause,  value); 

++  pred_cnt; 

printf ("Do  you  want  to  include  another  predicate  ?\n"); 

prompt  (); 

gets (more_pred) ; 

}/*  end  while  (more  predicates)  */ 
strcat (clause,  ")"); 

++  conj_cnt;  f 

printf ("Do  you  want  to  include  another  conjunction  ?\n"); 

promptO; 

gets (more_conj ) ; 

}/*  end  while  (more  conjunctions)  */ 
if  (conj_cnt  >  0) 

strcat (clause,  ")"); 


1 


prompt  () 

{ 

printf ( ; 

} 

/ ***************************************************************************/ 
show_req_f  il  e  ( ) 

/*  This  procedure  displays  the  rrds  stored  in  a  request  file  */ 

{ 

int  index; 

printf  ( "Enter  the  name  of  a  request  file  to  be  displayed  \n") ; 

prompt  ()  ; 

gets  (file_name) ; 

file_desc  =  fopen(file_name,  "r"); 
while  (f ile_desc  ==  NULL) 

{ 

printf ( "ERROR:  Cannot  open  file  %s  \n ",  f ile_name) ; 
printf ( "Enter  a  valid  file  name  or  hit  'return'  key  \n") ; 
prompt  ()  ; 
gets (f ile_name) ; 
if  (file_name [ 0 ]  ==  ' \0 ' ) 
return; 

file_desc  *  fopen(file_name,  "r"); 

} 

req_cnt  =  0; 

while  (f  gets  ( req_buffer  [req_cnt]  .request,  REQ__LENGTHf  file_desc)  1=  NULL) 

{ 

/*  Remove  line  feed  character  from  request  */ 

index  =  strindex (&req_buffer [req_cnt] .request [0] ,  "\n"); 

if  (index  >=  0) 

{ 

req_buffer [req_cnt] . request [index]  =  '\0'; 

} 

++  req_cnt ; 

} 

f close (file_desc)  ; 
display_req  ( )  ; 

} 

y********** ******************************************************** ********/ 
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show_templ ates ( ) 

/*  This  procedure  displays  relation  templates  in  the  */ 
/*  ' rel_templates'  buffer  one  at  a  time.  */ 
/*  GLOBAL:  rel_templates [ ] ,  tmpl_cnt  */ 

int  at_pos;  /*  attribute  index  */ 
int  rel__index;  /*  relation  index  */ 
char  select £2] j  /*  user's  response  */ 


s 
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rel_index  =  0; 

while (rel_index  <  tmpl_cnt) 

printf ( "RELATION :  %s\n", rel_templates [rel_index] . rel_name) ; 

at_pos  =  0; 

while(at_pos  <  rel_templates [rel_index] . rel_nof_attrs) 

{ 

printf("  %s", 

rel_templates [rel_index] . rel_attr s [at_pos] ,at_name) ; 
printf ("  (%c)\n", 

rel_templates [rel_index] . rel_attrs [at_pos] .at_type) ; 
++  at_pos; 

} 

printf ("More  ?  (y/n)  \n"); 

prompt  ()  ; 
gets(select) ; 

if  ((select[0]  ==  'n')  II  (select[0]  ==  'N')  II 
(select [0]  ==  'q')  II  (select  [0]  ==  ' Q 1 ) ) 
break; 

++  rel_index; 

} 

} 
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C  LANGUAGE  SOURCE  CODE  FOR  THE 
RRDS  CONTROLLER  PROGRAM 
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y*******************************************************y 

/*  V 

/*  RRDS  CONTROLLER  */ 

/*  V 

y*******************************************************  y 
/* 

Developed  and  Written  by 
LEONARD  A.  LYON 
Spring  1987  • 


/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/ 


*/ 

V 
*/ 

V 
*/ 

V 
*/ 

V 


This  program  implements  the  functions  of  the  RRDS 
controller.  It  accepts  requests  from  the  host 
simulator  program  via  a  socket  channel  created  by 
host  simultor  program,  parses  the  requests  using  a  */ 
YACC  generated  parser,  sends  valid  requests  to  the  */ 
BROADCAST  file  (simulated  bus) ,  generates  simulated*/ 
RC  result  data  for  valid  requests,  coalesces  the  */ 
result  data,  and  sends  results  to  the  host 
simulator  program  via  the  socket  channel. 


*/ 

*/ 

*/ 


******************************************************* 


/ 


♦include  <ctype.h> 

♦include  <stdio.h> 

♦include  <string.h> 

♦include  <sy s/type s.h> 

♦include  <sy s/socket. h> 

♦include  <sys/un.h> 

♦include  "rrds.vars" 

♦include  "rrds. functions" 

char  *yyin;  /*  input  pointer  for  LEX;  modified  for  RRDS  */ 

♦  include  "y.tab.c"  /*  source  code  for  YACC  created  parser;  yyparseO  */ 


FILE  *broad_desc; 
int  buf_index; 
int  buf_limit; 
int  data_sent; 
int  err; 
int  valid_req; 


/*  descriptor  for  the  BROADCAST  file 
/*  index  for  RC_buffer 

actual  number  of  coalesced  data  fragments 
counter  for  relation  fragments  sent 
error  value  from  socket  routines;  0:=  OK 


/* 

/* 

/* 


/*  result  of  parser;  0  :=  good,  1.  :=  bad 


/*  Comparison  buffer  used  for  coalescing  relation  fragments 
char  compare_buf f er [MAX_DATA_LENGTH] ; 


*/ 

-  K‘ 

*/ 

•I* 

*/ 

. ife 

*/ 

•  1 

*/ 

*/ 

*/ 

'£xj 

•  I 

/*  BEGIN  RRDS  CONTROLLER  */ 


main() 

{ 


/*  Initialize  string  constants  */ 

St rcpy (TERMINATE,  "@")  ; 
strcpy (CONTINUE,  "+") ; 

/*  Use  the  socket  facility  to  connect  the  Controller  to  the  */ 

/*  same  interprocess  channel  established  by  the  host  simulator  */ 

err  =  (channel  =  socket (AF_UNIX, SOCK_STREAM, 0 ) ) ; 
if  (err  <=  0) 

{ 

printf ( "ERROR:  socket  command  failed\n"); 
exit() ; 

} 

err  =  connect (channel, &soc_name, 6) ; 
if  (err  <  0) 

{ 

printf ( "ERROR:  connect  command  failed\n"); 
exit() ; 

} 


/*  Open  the  BROADCAST  file  for  simulated  broadcasting  of  vaild  requests  */ 
broad_desc  =  fopen( "BROADCAST",  "w"); 

/*  Wait  for  the  first  request  from  the  host  on  the  interprocess  channel  */ 
err  =  recv(channel,  recv_request,  REQ_LENGTH,  0); 
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/*  Process  requests  until  the  host  terminates  */ 

while (recv_request [0]  1=  TERMINATE [ 0 ] ) 

{ 

printf ( "%s\n",  recv_request) ; 

yyin  *  recv_request;  /*  Set  lex  input  ptr  */ 

valid_req  =  yyparseO;  /*  Invoke  the  yacc  parser  in  y.tab.c 

if  (valid_req  ==  0) 

{ 

/*  Process  a  valid  request  */ 
printf  ("VALID  REQUEST\n") ; 

/*  Simulate  broadcasting  a  request  by  writing  to  BROADCAST  file 
fprintf (broad_desc,  "%s\n",  recv_request) ; 

/*  Simulate  receiving  results  from  RCs  and  coalesce  results  */ 
get_results  ()  ; 

} 

else 

{ 

/*  Do  not  process  an  invalid  request  */ 
printf ("INVALID  REQUEST\n") ; 

/*  Now  generate  error  message  for  host  */ 
bad_req ( ) ; 

} 


I 

8 


I 
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/*  Transmit  the  results  of  the  request  to  the  host  */ 
send_results() ; 

/*  Await  the  next  request  from  the  host  on  the  interprocess  channel  */ 
recv (channel ,  recv_request,  REQ_LENGTHf  0); 

} 

f close (broad_desc) ; 

} 

/**************************************************************************/ 
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get_results() 

{ 

if  (strindex (&recv_request [0] ,  "DELETE")  >=  0) 
strcpy (reply ,  "VALID  DELETE  COMPLETE"); 

else  if  (strindex (&recv_request [0] ,  "INSERT")  >=  0) 
Strcpy (reply ,  "VALID  INSERT  COMPLETE"); 

else  if  (strindex (&recv_request [0] ,  "UPDATE")  >=  0) 
strcpy  (reply,  "VALID  UPDATE  COMPLETE"); 

else  if  (strindex  (&recv_request  [0]  ,  "AVERAGE")  >=  0) 
co_AVG  ( ) ; 

else  if  (strindex (&recv_request [0] ,  "COUNT")  >=  0) 
co_COUNT ( ) ; 

else  if  (strindex (&recv_request [0] ,  "MAX")  >=  0) 
co_MAX ( ) ; 

else  if  (strindex (&recv_request [0] , 
co_MIN ( ) ; 

else  if  (strindex (&recv_request  [0] , 
co_SUM ( ) ; 

else  if  (strindex (&recv_request  [0] , 
co_RECORDS ( ) ; 

else  if  (strindex (&recv_request  [0] , 
co_RECORDS ( ) ; 

else  if  (strindex ( &recv_request  [0]  , 
co_RECORDS ( ) ; 

else  if  (strindex (&recv_request [0] ,  "INTSECT")  >=  0) 
co_RECORDS ( ) ; 

else  if  (strindex (&recv_request [01 ,  "JOIN")  >=  0) 
co_RECORDS ( ) ; 

else  if  (strindex (&recv_request [0] , 

CO_REC0RDS ( ) ; 

} 


"MIN")  >=  0) 
"SUM")  >=  0) 
"PROJECT")  >=  0) 
"SELECT")  >=  0) 
"DIFF")  >=  0) 


"UNION")  >=  0) 


/ 


**************************************************************************** 


/ 


•■ft-ftftft'-' 'ftftft'ftftftft  ft  ft.*’//"] 
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opea_RC_f  il  es  ( ) 


RC_desc[0]  =  fopen( "RC_0 .data",  "r"); 
RC_desc[l]  =  f ope n("RC_l. data",  "r"); 
RC_desc[2]  =  fopen( "RC_2 .data",  "r"); 
RC_desc[3]  =  fopen( "RC_3(.data",  "r"); 


^************************************************************************* 


cl ose_RC_f il es ( ) 


int  RC_index; 

for(RC_index  =0;  RC_index  <  RC_ACTIVE;  ++RC_index) 
fclose (RC_desc [RC_index] ) ; 


/************************************************************************/ 
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CO_AVG() 

/*  Coalesce  the  sums  and  counts  from  the  RCs  to  create  the  average  */ 

{ 

double  avg; 
float  count  =  0; 
float  count_datum; 
float  sum  =  0; 
float  sum_datum; 

int  precision;  /*  decimal  precision  for  floating  point  conversion  */ 

int  RC_index ; 

char  result [VAL_SIZE]; 


/*  Get  simulated  RC  data  from  files  */ 


open_RC_f  iles  ()  ; 

for(RC_index  =  0;  RC_index  <  RC_ACTIVE;  ++RC_index) 


f scanf (RC_desc [RC_index] ,  "%e",  &count_datum) ; 
f scanf (RC_desc [RC_indexj ,  "%e",  &sum_datum) ; 
count  =  count  +  count_datum; 
sum  =  sura  +  sum_datum; 


cl ose_RC_f il es ( ) ; 


/*  Compute  the  true  average  */ 


avg  =  sum  /  count; 


/*  Convert  the  integer  value  of  avg  to  a  numeric  string  */ 


itoa((int)  avg,  result); 


/*  Generate  the  reply  message  */ 


strcpy  (reply,  "VALID  AVERAGE  =  ") ; 
strcat (reply ,  result); 
strcat (reply ,  "."); 


/*  Now  convert  the  fractional  portion  of  avg  to  a  numeric  string  */ 
/*  The  digits  after  the  decimal  point  are  converted  one  at  a  time  */ 


for (precision  =  1;  precision  <=  3;  ++  precision) 


avg  =  avg  -  (int)  avg; 
avg  =  avg  *  10; 
itoa((int)  avg,  result); 
strcat (reply,  result); 


I 


/A**************************************************************************/ 


co_COUNT() 

/*  Coalesce  the  count  from  the  RCs  */ 

{ 

int  counter  =  0; 
int  datum; 
int  RC_index; 
char  resul t [VAL_SIZE] ; 

/*  Get  simulated  RC  data  from  files  */ 

open_RC_files() ; 

roriRC_index  =0;  RC_index  <  RC_ACTIVE;  ++RC_index) 

{ 

f scanf (RC_desc [RC_index] /  "%d",  &datum) ; 

/*  Compute  the  total  count  */ 
counter  =  counter  +  datum; 

} 

cl ose_RC_f il es ( ) ; 

/*  Convert  the  integer  value  of  counter  to  a  numeric  string  */ 

itoa (counter ,  result); 

/*  Generate  the  reply  message  */ 

strcpy  (reply,  "VALID  COUNT  =  "); 
strcat (reply,  result); 

} 

/**************************************************************************y^ 
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CO_MAX() 

/*  Coalesce  the  max  values  from  the  RCs  */ 

{ 

char  datum [ MAX- DATA-LENG TH ] ;  /*  data  from  files  */ 

int  max_number;  /*  max  digit  values  */ 

int  number; 

char  max_val [MAX— DATA-LENG TH] ;  /*  max  character  values  */ 

int  RC_index  =  0; 


/*  Get  simulated  RC  data  from  files  */ 


open_RC_files()  ; 

f scanf (RC_desc [RC_index] ,  "%s",  &max_val [ 0] ) ; 
if ( isdigit (max_val [0] )  ==  0) 


/*  Process  string  data  */ 


f or (RC_index  =  1;  RC_index  <  RC_ACTIVE;  ++RC_index) 


/*  Coalesce  the  max  string  values  */ 
f scanf (RC_desc[RC_index] ,  "%s",  &datum[0]); 
if  (strcmp(datum,  max_val)  >  0) 
strcpy (max_val ,  datum); 


cl ose_RC_f il es ( ) ; 


/*  Generate  the  reply  message  */ 


strcpy  (reply,  "VALID  MAX  ="); 
strcat (reply ,  max_val) ; 

} 

else 


/*  Process  numeric  data  */ 


max_number  =  atoi (max_val) ; 

for(RC_index  =  1;  RC_index  <  RC_ACTIVE;  ++RC_index) 


/*  Coalesce  the  max  digit  values  */ 
f scanf (RC_desc [RC_index] ,  "%s",  &datum[0]); 
number  =  atoi (datum); 
if  (number  >  max_number) 
max .number  =  number; 


cl ose_RC_f il es ( ) ; 


/*  Generate  the  reply  message  */ 


itoa (max_number ,  max_val) ; 
strcpy  (reply,  "VALID  MAX  =  "); 
strcat (reply ,  max_val) ; 


CO_MIN ( ) 

/*  Coalesce  the  min  values  from  the  RCs  */ 

{ 

char  datum [MAX_DATA_L ENG TH] ;  /*  data  from  files  */ 

int  min_number;  /*  rain  digit  values  */ 

int  number; 

char  mii\_val  [MAX_DATA_LENGTH] ;  /*  min  character  values  */ 

int  RC_index  =  0; 

/*  Get  simulated  RC  data  from  files  */ 
open_RC_files  ()  ; 

f  scanf  (RC_desc [RCLindex]  ,  "%s",  Smiruval  [0] ) ; 
if ( isdigit (min_val [0] )  ==  0) 

{ 

/*  Process  string  data  */ 

for(RC_index  =  1;  RC_index  <  RC_ACTIVE;  ++RC_index) 

{ 

/*  Coalesce  the  min  string  values  */ 
f scanf (RC_desc [RC_index] ,  "%s",  &datum[0]); 
if  (strcmp (datum,  min_val)  <  0) 
strcpy (min_val ,  datum); 

} 

close_RC_files()  ; 

/*  Generate  the  reply  message  */ 

strcpy (reply,  "VALID  MIN  =  ") ; 
strcat (reply,  min_val) ; 

} 

else 

{ 

/*  Process  numeric  data  */ 
min_number  =  atoi (min_val) ; 

for(RC_index  =  1;  RC_index  <  RC_ACTIVE;  ++RC_index) 

{ 

/*  Coalesce  the  min  digit  values  */ 
f scanf (RC_desc [RC_index] ,  "%s",  &datum[0]); 
number  =  atoi (datum); 
if  (number  <  min_number) 
min_number  =  number; 

} 

close_RC_f  iles  ( )  ; 

/*  Generate  the  reply  message  */ 

itoa (min_number ,  min_val) ; 
strcpy  ( reply ,  "VALID  MIN  =  ")  ; 
strcat (reply ,  min_val) ; 

} 

} 

/************************************************************************** 
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co_SUM() 

/*  Coalesce  the  sum  values  from  the  RCs  */ 

{ 

int  datum; 

int  RC_index; 

int  sum  =  0; 

char  result  [VAL_SIZE] ; 

/*  Get  simulated  RC  data  from  files  */ 

open_RC_f il es ( ) ; 

for(RC_index  =0;  RC_index  <  RC_ACTIVE;  ++RC_index) 

{ 

/*  Compute  the  total  sum  */ 

fscanf (RC_desc [RC_index] ,  "%d",  &datum) ; 

sum  =  sum  +  datum; 

} 

cl ose_RC_f il es ( ) ; 

/*  Convert  the  integer  value  to  a  numeric  string  */ 

itoa(sum,  result); 

/*  Generate  the  reply  message  */ 

strcpy  (reply,  "VALID  SUM  =  ")  ; 
strcat (reply,  result); 
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co_RECORDS ( ) 

/*  Coalesce  the  relation  fragments  from  the  RCs  */ 

{ 


int  compare_index; 
int  lf_pos; 
int  next; 
int  rec_cnt; 
int  rec_limit; 
int  RC_index; 


/*  position  of  line  feed  character  */ 


/*  counts  records  read  from  each  RC  */ 
/*  random  bound  for  each  RC  */ 


buf_index  =  0; 

/*  SIMULATE  retrieving  data  from  each  RC  via  RC  data  files  */ 


opea_RC_files()  ; 

for (RC_index  =  0;  RC_index  <  RC_ACTIVE;  ++  RC_index) 


{ 


rec_limit  =  random (MAX_RC_DATA) ; 

for(rec_cnt  =  0;  rec_cnt  <  rec_iimit;  ++rec_cnt) 


{ 


} 


f gets (RC_buf f er [buf_index] .data, MAX_DATA_LENGTH,  RC_desc [RC_index] ) 
/*  Remove  the  linefeed  character  added  by  fgets  from  each  record  */[ 
lf_pos  =  strindex (RC_buf fer [buf_index] .data,  "\n"); 

RC_buf fer [buf_index] .data [lf_pos]  »  '\0'; 

++  buf_index; 


close_RC_files()  ? 


b* 
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/*  Now  coalesce  the  relation  fragment  records  from  all  of  the  RC's  */ 

/*  Take  each  record  and  remove  its  duplicates  in  the  rest  of  the  buffer  */ 

buf_limit  =  buf_index; 

compare_index  =  0 ; 

while (compare_index  <  buf_limit) 

{ 

strcpy (compare_buf f er ,  RC_buf f er [compare_ index] .data) ; 


/*  Go  through  the  rest  of  the  buffer  and  remove  duplicates  */ 

buf_index  =  compare_index  +1;  | 

while (buf_index  <  buf_limit) 

{ 

if  (strcmp(compare_buf f er ,  RC_buf f er [buf_index] .data)  ==  0) 

{/*  A  duplicate  relation  fragment  exists  */ 

/*  Remove  the  duplicate  by  overwriting  it  */ 
next  =  buf_index  +1; 
while(next  <  buf_limit) 
t 

strcpy  (RC_buf  fer  [  (next-1)  ]  .data,  RC_buf  f  er  [next]  .data) ;; 
++  next ;  ! 

>  ! 

—  buf_limit;  , 

} 

else 


} 


++  buf_ index; 


} 


++  compare_index; 


/*  Generate  a  reply  message  */ 


if  (buf_limit  >  0) 

{ 

strcpy (reply,  CONTINUE); 
strcat (reply,  "VALID  REQUEST: ") ; 

} 

else 

strcpy  (reply,  "VALID  REQUEST  —  No  Data")  ; 

} 


y'***********************************************************************// 


bacl_req() 

/*  Generates  an  error  message  */ 

{ 

strcpy (reply,  "INVALID  REQUEST  ") ? 

} 

y'***********************************************************************y 

send_results() 

/*  This  procedure  transmits  the  results  of  a  request  to  the  host  */ 

/*  over  the  interprocess  channel  established  by  the  socket  facility  */ 

{ 

if  ( reply [0]  ==  CONTINUE [0]) 

{/*  Send  coalesced  relation  fragments  to  the  host  from  RC_buffer*/ 
send(channel,  reply,  RES_SIZE,  0); 

f or (data_sent  =  0;  data_sent  <  buf_limit;  ++data_sent) 

{ 

send(channel,  RC_buf f er [data_sent] .data,  MAX_DATA_LENGTH,  0); 

} 

send (channel,  TERMINATE,  2,  0) ; 

} 

else 

send(channel,  reply,  RES_SIZE,  0); 

} 

/***************************************************************************/ 

yyerror(s)  /*  Error  routine  used  by  yyparseO  (see  pg.  18  in  YACC  booklet)*/ 
/*  Causes  the  YACC  parser  to  display  an  error  message  and  must  */ 
/*  be  provided.  */ 

char  *s; 

{ 

fprintf (stderr,  "%s\n",s);  /*  Print  error  message  from  YACC  parser  */ 

} 

y ***************************************************************************  j 

yywrapO  /*  Used  by  Lex  in  yylex()  at  end  of  input  data  */ 

/*  Causes  lex  to  finish  and  must  be  provided  */ 

{ 

return(l) ; 


C  LANGUAGE  SOURCE  CODE  FOR  THE  GLOBAL 
CONSTANTS,  FUNCTIONS,  AND  VARIABLES 


GLOBAL  CON STS ANTS 


♦define  MAX-ATTRS  10 

♦define  MAX-AUTO  10 

♦define  MAX-GEN  10 

♦define  MAX_DAT A_L ENG TH  80 

♦define  MAX_RC_DATA  10 

♦define  MAX-RELS  10 

♦define  MAX-REQ  10 

♦define  MAX-WHERE  101 

♦define  NAME_SIZE  20 

♦define  QUIT  0 

♦define  RC_ACTIVE  4 


/*  max  number  of  attrs  in  a  relation  */ 
/*  number  of  possible  string  values  */ 
/*  total  requests  made  automatically  */ 
/*  MAX  string  size  of  RC  data  */ 
/*  total  data  recs  in  RC  data  files  */ 
/*  max  number  of  relations  in  database*/ 
/*  max  requests  in  a  req  file  */ 
/*  max  length  of  a  WHERE  clause  */ 
/*  max  length  of  a  name  */ 
/*  value  to  terminate  a  user's  menu  */ 
/*  current  RCs  in  RRDS  configuration  */ 


♦define  REQ_LENGTH  300  /*  maximum  length  of  request  field  */ 
♦define  RES_SIZE  80  /*  length  of  Controller's  reply  */ 
♦define  VAL_SIZE  20  /*  max  length  of  a  string  variable  */ 


GLOBAL  VARIABLES 


/* 


int 

active_bus; 

/* 

char 

BLANK  [2]  ; 

char 

BOR  [2]  ; 

/* 

char 

CONTINUE [2] ; 

/* 

char 

EOR [2] ; 

/* 

char 

TERMINATE [2] ; 

/* 

FILE 

*f  ile„desc; 

/* 

char 

f  ile_name  [NAME_SIZE] ; 

/* 

int 

new^line; 

/* 

FILE 

*out_desc; 

/* 

char 

OUt_f  ile  [NAME_SIZE]  ; 

/* 

char 

output  [2] ; 

/* 

FILE 

*RC_desc  [RC_ ACTIVE]  ; 

/* 

char 

recv_request  [REO  LENGTH  1 ; 

/* 

int 

req_cnt ; 

/* 

char 

reply [RES_SIZE] ; 

/* 

int 

make_channel ,  channel ; 

/* 

int 

tmpl_cnt  ; 

/* 

char 

tmpl_name  [NAME_SIZE] ; 

/* 

FILE 

*tmpl_desc; 

/* 

FILE 

*f  open()  ; 

/* 

struct  { 

char  request  [REQ_LENGTH  ] 
}req_buffer [MAX-REQ] ; 

• 

9 

1  if  channel  "busl"  is  connected 

beginning  of  request  delimiter 

indicates  more  data  follows 

end  of  request  delimiter 

indicates  end  of  data  transmission 

ptr  to  a  request  file 

name  of  request  file 

dummy  variable  for  input  responses 

ptr  to  a  output  file 

results  of  processed  reqs 

directed  output (screen, file, both, S/F/B) 

data  file  ptr  to  backend  RC's 

Controller's  current  request  buffer 

number  of  requests  read  from  file 

Controller's  reply  to  a  request 

stores  pipe  info  for  'busl' 

number  of  templates  read  from  file 

name  of  TEMPLATES  file 

ptr  to  the  TEMPLATES  file 

declaration  of  fopen  function 


/*  Structure  variables  for  relation  templates  */ 
struct  attribute  { 

char  at_name [NAME_SIZE] ; 
char  at_type; 
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struct  relation  { 

char  rel_name  [NAME_3IZ  E] ; 
int  rel_nof_attrs; 

struct  attribute  rel_attrs [MAX_ATTRS] ; 

}; 


struct  relation  rel_tem plates [MAX_RELS] ; 

/*  struct  variable  for  'busl'  channel  info  */ 
struct  sockaddr_un  soc_name={AF_UNIX, "busl"}; 
/*  variable  to  store  relational  operators  */ 
struct  { 

char  OP [3] ; 

}  REL [ 6 ] ; 


y^***********************************************************^ 

itoa(n,s)  /*  convert  integer  in  n  to  characters  in  s  */ 

/*  System  function  could  not  be  found  */ 

int  n; 
char  s[] ; 

{ 

int  c,  i,  j,  sign; 

if  ((sign  *  n)  <  0)  /*  record  sign  */ 

n  =  -1  *  n;  /*  make  n  positive  */ 

i  =*  0; 

do  {  /*  generate  digits  in  reverse  order  */ 

s[i++]  *  n  %  10  +  *0';  /*  get  next  digit  */ 

}  while  ( (  n  /=  10)  >  0);  /*  delete  it  */ 
if  (sign  <  0) 
s[i++]  =  ' ; 

s[i]  =  '\0 ' ; 

/*  Now  reverse  the  string  */ 

for  (i  *  0,  j  ■  strlen(s) -1;  i  <  j;  i++,  j — ) 

{ 

c  =  s  [i]  ; 
s [i]  =  s[j] ; 
s[j]  =  c; 


strindex (s, t)  /*  return  first  position  of  t  in  s,  -1  if  none  */ 
char  *3/  *t; 

{ 

int  i,  j,  k; 

for(i  =  0;  *(s  +  i)  1=  '\0';  i++) 

{ 

for(j  =  i,  k  =  0  ; 

*(s+j)  1=  '\0'  &&  * (t+k)  1=  *\0'  &&  *(s+j)  ==  * (t+k) ;  j++f  k++) 

if (*(t  +  k)  ==  '\0') 
return( i) ; 

} 

return(-l) ; 

} 

random (modif ier ) 
int  modifier; 

{ 

return(rand()  %  modifier); 

} 


